filtre cellule vide

[porcinet95]

Bonjour,

Dans la macro, je souhaite ajouter le filtre sur les critères c1, c2, etc + les cellules vides

Macro :
Dim c1 As String 'déclare la variable c1 (Critère standard)
Dim c2 As String 'déclare la variable c1 (Critère bas NPSH)
Dim c3 As String 'déclare la variable c1 (Critère Jeux réduit)
Dim c4 As String 'déclare la variable c1 (Critère Barrel)

ActiveCell.Select 'enlève le focus au bouton
With Sheets("Sommaire") 'prend en compte l'onglet "Sommaire"
c1 = .Range("B9") 'définit le critère standard
c2 = .Range("C9") 'définit le critère bas NPSH
c3 = .Range("D9") 'définit le critère Jeux réduit
c4 = .Range("E9") 'définit le critère Barrel
End With 'fin de la prise en compte de l'onglet "Sommaire"

With Sheets("25G") 'prend en compte l'onglet "25G"
If .FilterMode = True Then .ShowAllData 'si l'onglet est filtré, affiche toutes les lignes
If c1 <> "" Then .Range("A2").AutoFilter Field:=1, Criteria1:=c1 'filtre avec le critère c1 si c1 n'est pas vide
If c2 <> "" Then .Range("A2").AutoFilter Field:=2, Criteria1:=c2 'filtre avec le critère c2 si c2 n'est pas vide
If c3 <> "" Then .Range("A2").AutoFilter Field:=3, Criteria1:=c3 'filtre avec le critère c3 si c3 n'est pas vide
If c4 <> "" Then .Range("A2").AutoFilter Field:=4, Criteria1:=c4 'filtre avec le critère c4 si c4 n'est pas vide
End With 'fin de la prise en compte de l'onglet "Sommaire"
Sheets("25G").Activate 'active l'onglet filtré "25G"
End Sub

Je vous en remercie d'avance

Merci