XL 2016 Copier coller en décalant si cellule vide

sylvanu à dit:

Bonjour Xamenod,
Un essai en PJ avec :

VB:

Sub TRANSPOSE()

    Dim DL%, L%
    Application.ScreenUpdating = False                      ' Ecran figer
    Range("C:c").ClearContents                              ' On efface la col C
    DL = Range("B65500").End(xlUp).Row                      ' Dernière ligne

    For L = DL To 1 Step -1                                 ' Toute les lignes en partant de la fin
        If Cells(L, "A") = "" And Cells(L, "B") <> "" Then  ' Si A vide et B non vide
            Cells(L - 1, "C") = Cells(L, "B")               ' On copie B et C ligne -1
            Range(Cells(L, "A"), Cells(L, "C")).Delete Shift:=xlUp ' On supprime A et B
        End If
    Next L
   
End Sub

Cliquez pour agrandir...