Chères amies, chers amis du forum

J'ai codé un bout de macro qui a pour but de supprimer une sélection de cellule visible après avoir filtrer:

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
 
With Sheets("BDD")
    Nrow = Range(Cells(4, 1), Cells(4, 1).End(xlDown)).Count
    Ncol = Range(Cells(4, 1), Cells(4, 1).End(xlToRight)).Count
    .Select
    For j = 2 To intNcol
        vntTmpVector = Application.Index(Application.Transpose(gvVNTArrayQueryData), j)
        strTmpName = CStr(vntTmpVector(1))
        vntTmpVector(1) = Empty
        .Range(Cells(4, 1), Cells(4, 1).End(xlToRight)).AutoFilter Field:=20, Criteria1:=Array(vntTmpVector), Operator:=xlFilterValues
        .Range(Cells(5, 1), Cells(intNrow, intNcol)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .AutoFilter
    Next j
    If .FilterMode = True Then .ShowAllData
End With
La selection par critere via le vecteur vntTmpVector fonctionne, cepandant lorsque l'on passe à la ligne suivante vba ne supprime pas les lignes et j'ai le message derreur suivant:

Impossible d'utiliser cette commande sur des selections qui se regroupent.

Auriez vous une idée SVP?

Merci