Option Explicit
Sub Colorer_selon()
Dim i As Long, plage1 As Range, plage2 As Range, plage3 As Range, plage4 As Range, c As Range
Application.ScreenUpdating = False
[a3:bb10000].Interior.ColorIndex = xlNone
For i = Cells(Rows.Count, "a").End(xlUp).Row To 3 Step -1
Set plage1 = Range("a" & i).Offset(, 1).Resize(, 17)
If Application.WorksheetFunction.CountA(plage1) = 17 Then plage1.Interior.ColorIndex = 43
Set plage2 = Range("a" & i).Offset(, 6).Resize(, 4)
If Range("a" & i).Offset(, 9) <> Range("a" & i).Offset(, 24) And Range("a" & i).Offset(, 24) <> "-" Then
plage2.Font.ColorIndex = 3: plage2.Font.Bold = True
Else
plage2.Font.ColorIndex = 1: plage2.Font.Bold = False
End If
Set plage3 = Range("a" & i).Offset(, 1).Resize(, 5)
If Range("a" & i).Offset(, 5) Like "*OK" Or Range("a" & i).Offset(, 5) Like "*OUI" Then plage3.Interior.ColorIndex = 36 Else plage3.Interior.ColorIndex = xlNone
Set plage4 = Range("a" & i).Offset(, 6).Resize(, 4)
If Range("a" & i).Offset(, 8) <> "" Then plage4.Interior.ColorIndex = 36 Else plage4.Interior.ColorIndex = xlNone
Next
Set plage1 = Nothing
Set plage2 = Nothing
Set plage3 = Nothing
Set plage4 = Nothing
Application.ScreenUpdating = True
End Sub