Extraction avec VBA

Bonjour à tous,

Je débute sur VBA, et, comme vous pouvez vous en douter, j'ai un soucis

J'ai un fichier comportant plusieurs sites identifiables par un trigramme (exemple ici : ABC) dans la colonne H. Je souhaite pouvoir copier uniquement certaines colonnes uniquement si la colonne H contient "ABC". Une âme charitable pourrait m'aider ? J'ai essayé différentes options et je bloque depuis plusieurs heures !!

Ci-joint mon code, où j'essaye de créer le nouveau fichier, copier la sélection, puis supprimer les lignes ne contenant pas ABC, et enfin enregistrer le fichier. Si je supprime le bloc With, cela fonctionne mais j'ai tous les sites sur le même tableau

N'hésitez pas si vous avez besoin de précisions supplémentaires, pour l'instant je ne vois pas si quelque chose d'autre pourrait être utile

If CheckBox_ABC.Value = True Then

Dim ABC As String

ABC = "Béclère.xlsx"

Feuil4.Range("Y:Y,H:H,I:I,J:J,L:L,N:N,S:S,T:T").Copy

Workbooks.Add

ActiveSheet.Paste

With ThisWorkbook.Worksheets("Feuil1").Range("H1")

If .Value <> "ABC" Then .EntireRow.Delete

End With

ActiveWorkbook.SaveAs ABC

ActiveWorkbook.Close

End If