Je voudrais sélectionner toutes les plages de cellules de ma feuille.

On navigue dans la zone utile (UsedRange). Si la cellule n'est pas vide et que le currentRegion correspondant n'a pas encore été ajouté, on l'ajoute à la zone des cellules non vides. Ca donne :

sub chercheNonVide()
 Dim c, celVides, celNonVides As Range
 Set celVides = Selection.SpecialCells(xlCellTypeBlanks)
 For Each c In ActiveSheet.UsedRange
 If Not (IsEmpty(c)) Then
 If celNonVides Is Nothing Then
 Set celNonVides = c.CurrentRegion
 Else
  If Intersect(c, celNonVides) Is Nothing Then
  Set celNonVides = Union(celNonVides, c.CurrentRegion)
  End If
 End If
 End If
 Next c
 end sub