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