XL 2013 Configurer un autofilter pour enlever les cases vides

[nicroq]

Bonsoir,

mon probleme est simple mais je n'arrive pas à le resoudre,
je souhaiterai en VBA faire un autofilter qui retire les vides, voici mon code :

Rows("1:1").Select
Range("I1").Activate
Selection.AutoFilter
ActiveSheet.Range("$A$1:$H$106").AutoFilter Field:=4, Criteria1:=""

Merci pour votre aide

 

[Lone-wolf]

Bonsoir nicroq et bonne année

ActiveSheet.Range("A1:H106").AutoFilter Field:=4, Criteria1:="><", Operator:=xlAnd

 

[nicroq]

Merci!!!!!!!!!!!
cela marche aussi apres avoir batailler sur ca pendant une heure !!!
ActiveSheet.Range("$A$1:$H$106").AutoFilter Field:=4, Criteria1:="<>"

 

[Lone-wolf]

Pas besoin de $$ dans une macro.