Suppression de lignes filtrées

Bonjour,

Je sais qu'il s'agit là d'un sujet simplissime pour des baroudeurs Excel. J'ai une feuille qui comporte un nombre important de lignes (+50 000), j'ai activé un filtre et souhaite supprimer les lignes vides filtrées. Excel me répond régulièrement qu'il ne dispose pas de mémoire suffisante. J'ai tenté une formule VBA glanée sur le net mais cela ne fonctionne toujours pas même en désactivant le ScreenUpdating. Est-ce grave docteur? Ci-dessous ma formule vba

If MsgBox("Etes vous sûr?", vbYesNo) = vbYes Then

Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _

Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp

ActiveSheet.ShowAllData

Else

MsgBox "Annulé"

End If

End Sub

Merci de vos conseils pro

Bonjour et bienvenue,

à essayer, supprime lignes entières

'filtre....
If MsgBox("Etes vous sûr?", vbYesNo) = vbYes Then
    Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).EntireRow.Delete
    ActiveSheet.ShowAllData
Else
    MsgBox "Annulé"
End If

Si le nombre filtré est trop important, tu peux faire une petite boucle en divisant le nombre de lignes

par 2 ou 3. (5000 maxi semble raisonnable, çà m'est arrivé !)

Amicalement

Claude