Un grand merci pour vos réponses.
Voici la solution que j'ai trouvée pour mon problème
Problème : Colorer toute la ligne en fonction de l'information d'une colonne
Sub color(ws As Worksheet, col As String, numCol As Integer)
Dim x As Integer
With ws
For x = 2 To Last_Row(ws)
If StrComp(.Cells(x, numCol).Value, "1") = 0 Then
.Rows(x).Interior.ColorIndex = 34
Else
.Rows(x).Interior.ColorIndex = 24
End If
Next
End With
End Sub