bonsoir JFBee
Une petite macro évenementielle du type :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range('A2:F30')) Is Nothing Then
For Each c In Target
Select Case c.Value
Case Is = ''
Target.Interior.ColorIndex = 0
Case Is = 'B'
Target.Interior.ColorIndex = 5
Case Is = 'A'
Target.Interior.ColorIndex = 3
Case Is = 'N'
Target.Interior.ColorIndex = 1
Case Is = 'C'
Target.Interior.ColorIndex = 6
End Select
Next
End If
End Sub
devrait faire l'affaire.
A noter, j'ai réduit pour l'exemple la plage sur l'intervalle A2:F30
Pour insérer ce code, cliquer bouton droit sur l'onglet de la feuille concernée, cliquer sur 'visualiser le code' puis coller le script sur la fenêtre de droite.
Cordialement