Suppression de cellules vides et décalage

Bonjour à tous

je souhaite faire une suppression de cellules vides dans un tableau et décalage de ligne.

voir le fichier ce sera plus explicite.

Merci de votre aide

Bonjour Pascal44000

Voici une possibilité en VBA

Sub SuppressionCelluleVide()
  Dim Col As Long, dLig As Long, Lig As Long
  ' Pour les 3 colonnes
  For Col = 1 To 3
    ' Dernière ligne de la cellule remplie
    dLig = Cells(Rows.Count, Col).End(xlUp).Row
    ' Pour chaque ligne en partant de la fin
    For Lig = dLig To 1 Step -1
      ' Si la celllule est vide, on supprime
      If Cells(Lig, Col) = "" Then Cells(Lig, Col).Delete Shift:=xlUp
    Next Lig
  Next Col
End Sub

A+

C'est super merci beaucoup, mais il manque le code pour décaler les lignes 2,3,4; etc. à la suite de la ligne 1.

Le nombres de colonnes est variable

Bonne soirée

Re,

Je ne comprends pas ce qu'il manque

Votre demande est : "je souhaite faire une suppression de cellules vides dans un tableau et décalage de ligne."

Avant

Et après

Merci de nous donner l'exemple fini et souhaité à partir de votre fichier SVP

A+

Voila ce que je souhaite, Merci

A moins qu'il y a une méthode plus facile de classement

Bonjour,

Une proposition, est ce que cela convient ?

Bonjour JB_

Bien vue avec PQ

Si notre ami préfère VBA, voici le fichier avec le code modifié

A+