Le bouton qui fait glisser les notes

Sub Macro1()
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

With Sheets("Feuil2") 'prend en compte l'onglet "Feuil2"
    'définit la cellule de destination DEST (A1 si A1 est vide, sinon la première ligne vide de la colonne 1 (=A) de l'onglet "Feuil2")
    Set DEST = IIf(.Range("A1") = "", .Range("A1"), .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
End With 'fin de la prise en compte de l'ontglet "Feuil2"
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
    .Range("A1").Copy DEST 'copie la cellule A1 dans DEST
    .Range("A2").Copy DEST.Offset(0, 1) 'copie la cellulee A2 dans DEST décalée d'une colonne à droite
End With 'fin de la prise en compte de l'ontglet "Feuil1"
End Sub

Private Sub CommandButton1_Click()

End Sub

Module1.Macro1

Private Sub CommandButton1_Click()
Module1.Macro1
End Sub