Sub Macro1()
'****************************
'Macro pour couleur et filtre
'****************************
Dim c As Range 'déclare la variable c
Dim car As String 'déclare la variable car
Dim ad As String 'déclare la variable ad
Dim x As Integer
car = InputBox("Tapez le mot (ou la chaîne de caractères) recherché", "Rechercher") 'définit la variable car (Boîte de texte)
If car = "" Then Exit Sub 'si rien n'est édité, sort de la procédure
With Range("B3:M3000") 'prend en compte la plage de la recherche
Set c = .Find(car) 'définit la variable c (recherche du texte édité dans la boîte de texte)
If Not c Is Nothing Then 'condition : si une occurrence est trouvée
ad = c.Address 'définit la variable ad (adresse de cette occurrence)
Do 'exécute
c.Interior.ColorIndex = 3 'remplit de rouge (supprime cette ligne si tu ne souhaites pas de couleur)
Cells(c.Row, 1).Value = 1 'érit "1" dans la colonne A de la ligne correspondante
Set c = .FindNext(c) 'redéfinit la variable C
'tourne en boucle tant qu'une nouvelle occurrence est trouvée avec un adresse différente de ad
Loop While Not c Is Nothing And c.Address <> ad
End If 'fin de la condition
End With
Range("A3").AutoFilter 'mode filtre automatique
Selection.AutoFilter Field:=1, Criteria1:="1" 'critère
End Sub
Sub Macro2()
'**************************************
'Macro pour supprimer couleur et filtre
'**************************************
Range("A3").AutoFilter 'supprime le filtre automatique
Range("A3").CurrentRegion.Interior.ColorIndex = xlNone 'enlève la couleur rouge (supprime aussi si tu as supprimé en haut)
End Sub