bonjour à tous,
je me permets une précision :unsure:
il faudrait peut-être rajouter les lignes remettant la couleur d'origine si la valeur est differente de X ou x (avant end sub)=:
If Range('a4') inf sup 'x' Or Range('a4') inf sup 'X' Then
Rows('4:4').Select
With Selection.Interior
.ColorIndex = 2
End With
End If
voilà bon dimanche...
remplacer inf et sup par leur symbole respectif