Dans Excel, vous avez la possibilité de supprimer des cellules individuelles. Les cellules suivantes sont soit poussées vers la gauche ou vers le haut, de sorte que l’espace est fermé. Cependant, cette fonction dans Excel doit être utilisée avec prudence, car cela peut rapidement faire glisser des informations dans la mauvaise colonne ou la mauvaise ligne.

Sub SupprimerCellulesVide()
Dim Plage As Range
Dim Cellule As Range
Set Plage = Range("B5:H27")
Plage.Select
Selection.SpecialCells(xlCellTypeBlanks). _
Delete Shift:=xlToLeft
End Sub

Définissez d’abord cette zone de sorte que le «déplacement» se déroule dans une zone contrôlée. Pour ce faire, utilisez l’instruction Set. Ensuite, vous contrôlez toutes les cellules vides dans la zone spécifiée et les supprimez à l’aide de la méthode Delete. Entrez la constante xlToLeft comme argument, de sorte que les cellules adjacentes soient décalées vers la gauche pour combler les lacunes causées par la suppression.