Bonsoir,
avec ce code, tu sélectionnes soit toutes les cellules vides, soit la première, soit la dernière....
Sub Cellules_Vides()
Dim Plg As Range, Plg2 As Range
Dim X As Byte
Set Plg = Range("A1:A23")
If Application.CountA(Plg) = Plg.Rows.Count Then Exit Sub ' s'il n'y a pas de cellules vides
' on sort
Set Plg2 = Plg.SpecialCells(xlCellTypeBlanks) 'définit la plage, uniquement les cellules vides
Plg2.Select 'sélectionne toutes les cellules vides
X = Plg2.Count 'nombre de cellules vides dans la plage
Plg2.Areas(1).Select 'sélectionne la première cellule vide
Plg2.Areas(X).Select 'sélectionne la dernière cellule vide
End Sub
Bonne soirée