XL 2016 Copier et Coller par VBA d'une feuille à une autre

Rabeto à dit:

Bonjour,

J'ai vu des forums mais aucun ne répond à ce que je souhaite. (soit je ne sais pas comment les exploiter)

J'ai des données dans la feuille A et je souhaite faire un copie coller des données en valeur dans une autre feuille B à partir de la première cellule vide.
Ex : Quand je lance la macro, je souhaite ça colle les données de A dans l'une des première cellules vide de B si les autres colonnes sont déjà remplies et ainsi de suite et gardant le même format.

merci pour votre aide.

Cliquez pour agrandir...

VB:

Private Sub CommandButton1_Click()
    Dim Derlg&
    With Sheets("a")
        If Me.CommandButton1.Caption = "Copier" Then
            Derlg = .Cells(.Rows.Count, "b").End(xlUp).Row
            .Range("B2:e" & Derlg).Copy Sheets("b").Range("c" & Sheets("b").Cells(Sheets("b").Rows.Count, "c").End(xlUp).Row + 1)
            Me.CommandButton1.Caption = "Déjà Copié"
        End If
    End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Me.CommandButton1.Caption = "Copier"
End Sub

Cliquez pour agrandir...