Dim ligne As Long
With Feuil2
For ligne = 2 To 100
If (.Cells(ligne, 2) <> "" And .Cells(ligne, 2).Interior.ColorIndex = 3) _
Or (.Cells(ligne, 3) <> "" And .Cells(ligne, 3).Interior.ColorIndex = 3) _
Or (.Cells(ligne, 4) <> "" And .Cells(ligne, 4).Interior.ColorIndex = 3) _
Or (.Cells(ligne, 5) <> "" And .Cells(ligne, 5).Interior.ColorIndex = 3) _
Or (.Cells(ligne, 6) <> "" And .Cells(ligne, 6).Interior.ColorIndex = 3) _
Or (.Cells(ligne, 7) <> "" And .Cells(ligne, 7).Interior.ColorIndex = 3) _
Or (.Cells(ligne, 8) <> "" And .Cells(ligne, 8).Interior.ColorIndex = 3) _
Or (.Cells(ligne, 9) <> "" And .Cells(ligne, 9).Interior.ColorIndex = 3) _
Or (.Cells(ligne, 10) <> "" And .Cells(ligne, 10).Interior.ColorIndex = 3) _
Or (.Cells(ligne, 11) <> "" And .Cells(ligne, 11).Interior.ColorIndex = 3) _
Then
.Range("a" & ligne).Interior.ColorIndex = 48
Else: .Range("a" & ligne).Interior.ColorIndex = xlColorIndexNone
End If
Next ligne
End With