Hello,

Je reviens vers vous, car j'ai un petit souci avec le code ci-dessous.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub CommandButton1_Click()
    x = Range("a2:d2")
    DerLig = Range("A65536").End(xlUp).Row + 1
    Range("A" & DerLig) = x
End Sub
Il ne veut pas amener la plage x , il n'amène que la première cellule (A2) ??

Si quelqu'un a la gentillesse de m'aider, je le remercie par avance !

Je joins le fichier ici.

Bonne journée.