Ah super merci !!!! cela fonctionne mais en réalité cette partie :
==> For Each r In .Range("b2", .Range("b" & .Rows.Count).End(xlUp)
est sur une autre feuille qui s'appelle I à partir de F2 , et cette partie :
==> with .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
.Interior.ColorIndex = xlNone
End With
For Each r In .Range("a2", .Range("a" & Rows.Count).End(xlUp))
est sur une feuille qui s'appelle H à partir de D2...
Est-il possible de modifier?? je suis vraiment nul DSL
J'ai mis mon cas précis ci-joint
Merci beaucoup d'avance.