copier des cellules sélectionées et les collées

Sub recopier_selection()
    Dim nb As Integer
    
    'indiquer si une sélection n-a pas été effectuée'
    If IsEmpty(Selection) Then MsgBox 'Aucune selection!', vbCritical, 'Recopie'
    
    nb = Selection.Cells.Count
    Selection.Copy
    
    'coller à l-endroit voulu '
    Range('D1').Select
    ActiveSheet.Paste

    'vider le contenu de la destination '
    If IsEmpty(Range('D' & nb + 1)) Then GoTo suite
    Range('D' & nb + 1 & ':D' & Range('D65536').End(xlUp).Row).Select
    Selection.ClearContents

suite:
    'tout ranger'
    Range('A1').Select
    Application.CutCopyMode = False
End Sub