Copier sélection filtre

Bonjour à tous, je viens vers vous car mon code fonctionne en pas à pas mais pas en automatique...

J'ai filtré un tableau selon 3 critères. Je ne veux copier que la sélection qui se trouve en colonne CH qui sort de ces 3 filtres.

Le code suivant fonctionne uniquement en pas à pas, quand j'exécute le code en automatique il ne me copie pas ma plage filtrée mais uniquement les 2 premières lignes de la colonne CH :

Sub 1()

Sheets("Carnet").Range("A2:CJ10000").AutoFilter Field:=85, Criteria1:="FO"
Sheets("Carnet").Range("A2:CJ10000").AutoFilter Field:=84, Criteria1:=Sheets("OS+1").Range("D2")
Sheets("Carnet").Range("A2:CJ10000").AutoFilter Field:=87, Criteria1:=Array _
        ("="), Operator:=xlFilterValues, Criteria2:=Array(0, "5/16/2023", 0, _
        "12/19/2022")

'copier/coller la plage filtrée
Sheets("Carnet").Range("CH4:CH" & Range("CH65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
Sheets("OS+1").Range("B5").PasteSpecial xlPasteValues

End Sub

Je reste à votre disposition si je n'ai pas été assez clair !

Je vous remercie d'avance pour votre aide (précieuse... )

Bonjour

Dans votre code, essayez en corrigeant cette ligne

Sheets("Carnet").Range("CH4:CH" & Sheets("Carnet").Range("CH65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy

Si ok -->

Cordialement