nom = InputBox("Qu'cest qui?", "Azwiz")
surlignage = MsgBox("Tu surlignes ou quoi ?", vbYesNoCancel, "Tralala")
If surlignage = vbYes Then
Sheets("test").Activate
For i = 2 To Range("A36553").End(xlUp).Row
If Cells(i, 2).Value = nom Then
Cells(i, 3).EntireRow.Interior.ColorIndex = 37
End If
Next i
End If