Bonjour à tous, je suis nouveau sur ce forum et je viens déjà solliciter votre aide :-).
J'ai le code suivant qui me copie une sélection d'une Feuille vers une autre feuille.
Si je fais une nouvelle sélection, lors du copier / coller ça m'écrase la précédente copie, je voudrais que ça vienne s'ajouter en dessous.
Merci d'avance pour l'aide que vous pourrez m'apporter.
Bonne journée.
Cordialement.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButtonNNO_Click()
Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Dim ySheet As Worksheet
    Set xSheet = ActiveSheet
    Set ySheet = Sheets("Relance ECM")
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("B:M ").Copy
            ySheet.Range("B7:M7 ").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If
 
    Application.ScreenUpdating = True
End Sub