Sub MAJCouleurs()
Application.ScreenUpdating = False
Dim c As Range
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "FeuilA" And ws.Name <> "FeuilB" And ws.Name <> "FeuilC" Then
'Formule remplissage des lignes blanches. Couleurs = 16777214
Dim LigneBlanche
LigneBlanche = "=IF(OR(RC13=""AGPRO"",RC13=""AGTEC"",RC13=""AGING"",RC13=""AGAPP""),0,RC[-2])"
'Remplissage colonne S
For Each c In ws.Range("T1:U250")
If c.Interior.Color = 16777214 Then c.Formula = LigneBlanche
Next c
End If
Next ws
End Sub