Bonjour à tous,

J'ai une macro VBA pour supprimer les lignes qui ne contiennent pas CCPACK dans la colonne 29 de mon fichier. Cela me remonte un code 400 sur la ligne en gras :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'*********************************
' DelLign <>CCPACK
'*********************************
Sub DelLign()


Dim onglet As Worksheet
Dim dernière_colonne As Long
Dim dernière_ligne As Long
Set onglet = Worksheets(1)

dernière_ligne = onglet.Cells(Rows.Count, 1).End(xlUp).Row
dernière_colonne = onglet.Cells(1, Columns.Count).End(xlToLeft).Column



    Range("AC2").Select
    onglet.Range(onglet.Cells(1, 1), onglet.Cells(dernière_ligne, dernière_colonne)).AutoFilter Field:=29, Criteria1:="<>*CCPACK*", Operator:=xlAnd
        Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    onglet.Range(onglet.Cells(1, 1), onglet.Cells(dernière_ligne, dernière_colonne)).AutoFilter Field:=29
    
End Sub
Pourriez-vous me dire quelle est mon erreur ?

Je vous remercie par avance,