XL 2019 la méthode AutoFilter de la classe range a échoué

Bonjour Tout le monde,

je revient vers vous pour un code que j'utilise souvent dans mes applications, et je précise que ce bout de code fonctionner normalement et j'arrive pas à détecter le souci donc voici le bout de code en question :

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'ActiveSheet.Unprotect
Dim PremiereCellule As Range
Set PremiereCellule = ActiveCell.CurrentRegion.Cells(1)
Dim colonne As Integer
colonne = ActiveCell.Column - PremiereCellule.Column + 1
Dim Filtre As String
Filtre = InputBox("Texte à filtrer :", "FILTRE", ActiveCell)
PremiereCellule.AutoFilter
PremiereCellule.AutoFilter Field:=colonne, Criteria1:="*" & Filtre & "*"
'ActiveSheet.Protect
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

c'est pour filtrer un tableau d'après la cellule sélectionner.
Merci d'avance .