...................... mais le bouton " mots clés " ne fonctionne pas je ne sais pas d’où provient mon erreur.
Sub CommandButton3_Click()
Set ZoneData = Range("A6:E" & Range("A" & Rows.Count).End(xlUp).Row)
ZoneData.Select
motscles = InputBox("Mot clé correspondant à votre recherche")
ZoneData.AutoFilter Field:=5, Criteria1:="=*" & motscles & "*", Operator:=xlAnd
End Sub