Sub coloriageService()
Dim MyRange As Range
Dim Cel As Range
Dim DerLig As Long
Dim Service As String
DerLig = Range("C" & Rows.Count).End(xlUp).Row
Set MyRange = Range("C2:C" & DerLig)
Service = InputBox("Quel service")
Service = UCase(Service)
For Each Cel In MyRange
If Cel.Value = Service Then
Range(Cells(Cel.Row, 1), Cells(Cel.Row, 3)).Interior.ColorIndex = 36
Else
Range(Cells(Cel.Row, 1), Cells(Cel.Row, 3)).Interior.ColorIndex = xlNone
End If
Next
End Sub