Sub Colis() ' Rechercher par n° de Colis
On Error Resume Next
Rows("2:2").Select
ActiveSheet.ShowAllData
Dim Filtre As String
NoCol = Application.Match("Ordre de Transport", Range("1:1"), 0) ' recherche de la bonne colonne
Filtre = InputBox("Recherche :", "FILTRE", "*")
ActiveSheet.ListObjects("Suivi_des_Livraison_M53").Range.AutoFilter Field:=NoCol, Criteria1:=Filtre, Operator:=xlAnd
Range("AY1").Select
End Sub