XL 2013 Supprimer les cellules vides dans colonne via AutofilterMode [VBA]

[STARRAG]

Bonjour à tous,

J'ai besoin pour un tableau excel, de réaliser un filtre automatique en VBA pour qu'il affiche toutes les valeurs égale et inférieure à 7 mais je souhaite aussi qu'il ne m'affiche pas les cellules vides.
J'ai réalisé ce code mais les cellules vides apparaissent tout de même.
Quelqu'un peut m'aider?

Cordialement

Sub Filtre_delai()

Dim premiereCellule As Range
Set premiereCellule = ActiveCell.CurrentRegion.Cells(1)
Nlig = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & Nlig).Select
On Error Resume Next
ActiveSheet.ShowAllData

With Worksheets("Demandes")

If Not .AutoFilterMode Then .Range("$AD$6").AutoFilter Field:=38, Criteria1:="<=7", Criterial2:="<> & Empty"

End With

End Sub

 

[sylvanu]

Bonjour Starrag,
Si les données sont en colonne AD, on peut utiliser ça :

If Not .AutoFilterMode Then
    ActiveSheet.Range("$AD$1:$AD$17").AutoFilter Field:=1, Criteria1:="<>""""", Operator:=xlAnd, Criteria2:="<=7"
End If

C'est la syntaxe donnée par l'enregistreur de macros.