Sub RechercheCompteur()
Dim FeuilleActive$, NumCompteur%, RechCptr$
FeuilleActive = ActiveSheet.Name
RechCptr = Application.InputBox("Nom du client : ", "Quel nom ?", Type:=2)
With Worksheets(FeuilleActive)
If Application.CountIf(Range("A:A"), RechCptr) > 0 Then
NumCompteur = Application.Match(RechCptr, .Range("A:A"), 0)
.Range("A1:A1000").Interior.Color = vbWhite
.Range("A" & NumCompteur).Interior.Color = RGB(174, 240, 194)
Else
MsgBox "Nom introuvable."
End If
End With
End Sub