Private Sub grdListe_CellFormatting(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) _
        Handles grdListe.CellFormatting
 
        If grdListe.Columns(e.ColumnIndex).Name = "Status" Then
 
            Dim stringValue As String = e.Value
            If stringValue Is Nothing Then Return
 
            Dim cell As DataGridViewCell = _
                    grdListe(e.ColumnIndex, e.RowIndex)
            cell.ToolTipText = stringValue
 
            Select Case stringValue
                Case "2"
                    e.Value = InWork
                Case "4"
                    e.Value = NotInWork
            End Select
 
        End If
    End Sub