Macro copier coller

Bonjour,

Bonjour

je ne parviens pas en me servant de mon macro a coller sur la même feuille les lignes 4 à 51. j'aurais voulu qu'elles se collent successivement a la suite des autre mais elles se colle toujours a la ligne 52 ce qui ne m'arrange pas.

pouvez vous m'aider svp a faire en sorte que les lignes 4 à 51 se collent a la dernière ligne du fichier car c'est une opération que je dois faire souvent.

Merci beaucoup pour votre aide

Bonjour,

Essayez ce code:

Sub Recopie_Tableaux()
    Dim f1 As Worksheet
    Dim DerLig As Long
    Application.ScreenUpdating = False
    Set f1 = Sheets("Potage")
    DerLig = f1.Range("I" & Rows.Count).End(xlUp).Row
    Range(f1.Cells(4, "B"), f1.Cells(51, "EF")).Copy f1.Range("B" & DerLig + 1)
    Set f1 = Nothing
End Sub

Cdlt

Merci beaucoup Arturo83 ca marche, je vais pouvoir avancer dans mes tâches. je ne sais quoi dire sauf merci encore