Next
For i = 1 To (NbCells * 2 + NbLigneSautee)
If Cells(i, 1).Interior.ColorIndex = 3 Or Cells(i, 1).Interior.ColorIndex = 42 Or Cells(i, 1).Interior.ColorIndex = 56 Or Cells(i, 1) = 18 Or Cells(i, 1).Interior.ColorIndex = 53 Or Cells(i, 1).Interior.ColorIndex = 1 _
Or Cells(i, 1).Interior.ColorIndex = 5 Or Cells(i, 1).Interior.ColorIndex = 9 Or Cells(i, 1).Interior.ColorIndex = 10 Or Cells(i, 1).Interior.ColorIndex = 11 Or Cells(i, 1).Interior.ColorIndex = 12 _
Or Cells(i, 1).Interior.ColorIndex = 13 Or Cells(i, 1).Interior.ColorIndex = 14 Or Cells(i, 1).Interior.ColorIndex = 16 Or Cells(i, 1).Interior.ColorIndex = 18 Or Cells(i, 1).Interior.ColorIndex = 21 Or Cells(i, 1).Interior.ColorIndex = 23 _
Or Cells(i, 1).Interior.ColorIndex = 25 Or Cells(i, 1).Interior.ColorIndex = 29 Or Cells(i, 1).Interior.ColorIndex = 30 Or Cells(i, 1).Interior.ColorIndex = 31 Or Cells(i, 1).Interior.ColorIndex = 32 _
Or Cells(i, 1).Interior.ColorIndex = 47 Or Cells(i, 1).Interior.ColorIndex = 48 Or Cells(i, 1).Interior.ColorIndex = 49 Or Cells(i, 1).Interior.ColorIndex = 50 Or Cells(i, 1).Interior.ColorIndex = 51 Or Cells(i, 1).Interior.ColorIndex = 52 Or Cells(i, 1).Interior.ColorIndex = 53 _
Or Cells(i, 1).Interior.ColorIndex = 54 Or Cells(i, 1).Interior.ColorIndex = 55 Or Cells(i, 1).Interior.ColorIndex = 56 Then
Range("A" & i).CurrentRegion.Resize(, 24).Font.ColorIndex = 2
End If
Next i