Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ligne = 2
Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row).ClearContents
For lig = 2 To Range("B" & Rows.Count).End(xlUp).Row
Range("D" & ligne).Resize(Cells(lig, 2), 1) = Range("A" & lig).Value
ligne = ligne + Cells(lig, 2)
Next
Application.ScreenUpdating = True
End Sub