Bonjour,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dl1 = Worksheets('feuil1').Range('A' & '65536').End(xlUp).Row
For i = 1 To dl1
If Cells(i, 4) = 'PMA' Then
Cells(i, 1).Font.Bold = True
Cells(i, 1).Font.ColorIndex = 3
End If
If Cells(i, 4) = 'PMS' Then
Cells(i, 1).Font.Bold = True
Cells(i, 1).Font.ColorIndex = 50
End If
If Cells(i, 4) = 'PMAR' Then
Cells(i, 1).Font.Bold = True
Cells(i, 1).Font.ColorIndex = 5
End If
Next i
Enfin si j'ai bien compris..
Bon courage