XL 2016 Copie la valeur de cellules spécifiques avec le nombre de lignes copiées

sylvanu à dit:

Bonjour Dadi,
Avec ce que j'ai compris, et :

VB:

Sub Bouton1_Clic()
    Dim DL1%, DL2%, Taille%
    Application.ScreenUpdating = False
    DL1 = Range("A65500").End(xlUp).Row
    With Sheets("Feuil2")
        DL2 = .Range("B65500").End(xlUp).Row + 1
        Taille = DL2 + DL1 - 9
        .Range("C" & DL2 & ":H" & Taille) = Range("A9:G" & DL1).Value   ' Copier Coller valeurs
        .Range("B" & DL2 & ":B" & Taille) = Range("A4")                 ' Date
        .Range("I" & DL2 & ":I" & Taille) = Range("D4")                 ' Name
        .Range("J" & DL2 & ":J" & Taille) = Range("F4")                 ' Machine
    End With
End Sub

Si on appuie plusieurs fois sur le bouton, on copie plusieurs fois. Sinon précisez quand copier.

Cliquez pour agrandir...