Critère cellule active

Bonjour,
Je viens d'envoyer un mail sur le forum avec la copie d'une macro pour une recherche d'une valeur dans une colonne. Vous devriez pouvoir l'adapter pour votre filtre.
André

Bonjour André,
Je ne trouve pas votre réponse sur le forum. C'est normal ?
Jacquesc

Bonsoir jacques
voici la copie de ma macro...
je ne suis pas un pro, loin s'en faut, mais si cela vous convient...
titre du mail d'origine "recherche par InPutBox"
Sub litige1()
Dim Monnmr As String 'recherche du numéro
Monnmr = InputBox("Entrez le numéro en litige")
If Monnmr <> "" ThenColumns("K:K").Select 'Selection de toute la colonne K
Selection.Find(What:=MonBon).Activate 'recherche du numéro en litige
'sélection de la cellule A de la ligne pour mise en rouge
ActiveCell.Offset(columnOffset:=-10).Activate
Selection.Font.ColorIndex = 3
'boucle pour passer en rouge toutes les cellules non vides de la ligne considérée
Do While Not IsEmpty(ActiveCell)
Selection.Font.ColorIndex = 3
ActiveCell.Offset(columnOffset:=1).Activate
Loop
ElseIf MonBon = "" Then'sortie de la boucle
Dim Ms, Styl
Ms = "Vous n'avez pas entré de numéro..."'message en l'absence de saisie
Styl = vbOKOnly
rep = MsgBox(Ms, Styl)End If
End Sub