Bonjour le forum, Bonjour Staple1600
voici une correction pour ton code qui permet de remettre la cellule à la bonne couleur si la lettre est différente que celle coloriée/
Sub MEFC_VBA()
'Staple1600
'+++++++++++++++++++++++++++++++++++++++
'dans la cellule A1 j'ai soit la lettre
'M en bleu
'A en vert ,
'J en jaune
'B en rouge
'et C en rose
'+++++++++++++++++++++++++++++++++++++++
Dim C As Range
For Each C In ActiveSheet.UsedRange
Select Case C
Case 'M'
C.Font.ColorIndex = 5
Case 'A'
C.Font.ColorIndex = 10
Case 'J'
C.Font.ColorIndex = 6
Case 'B'
C.Font.ColorIndex = 3
Case 'C'
C.Font.ColorIndex = 7
Case Else:
C.Font.ColorIndex = xlAutomatic ' Là est la modification
End Select
Next C
End Sub
Bonne journée.
Vincent