besoin d'une macro

Bonjour,
Essaye çà :

Dim Plage As Range
Set Plage = Range("A:A")
With Plage
Set Dimanche = .Find("Dimanche")
If Not Dimanche Is Nothing Then
firstAddress = Dimanche.Address
Do
Rows(Dimanche.Row).Interior.ColorIndex = 15
Set Dimanche = .FindNext(Dimanche)
Loop While Not Dimanche Is Nothing And Dimanche.Address <>
firstAddress
End If
End With
End Sub

Michel

"mattparisien59" <mattparisien59@domain-xyz.in> a écrit dans le message de
news:YbCdnddywen7917WRVn_vwA@giganews.com...

Bonjour,

Je recherche une macro permettant de mettre toute la ligne en couleur

"grise"

lorsqu'il trouve le jour "Dimanche" dans la premiere colonne ("A1"). Merci

pour

votre aide