Contiennent-elles des espaces ?
Essaye manuellement la sélection de cellules vides via le menu Edition, puis Atteindre, boutons cellules. Si cela te convient, enregistre une macro pour voir la syntaxe et la collection manipulée.
Ensuite tu peux boucler sur cette collection
Un exple qui ne répond pas entièrement à ta question mais te montrera une manipulation de la collection qui t'intéresse
for each cl in activesheet.range("A1",[A65536].end(xlup)).specialcells(xlcelltypeblanks)
cl.offset(,1).value="la cellule " & cl.address(0,0) & " d'à côté est vide" & cl.value
next cl
tu peux aussi trouver dans les anciens messages des bouts de code avec des boucles loop qui t'aideront