Copie de certaines cellules pour listing

Bonjour,

voici en piece jointe un fichier de listing général, suvi de plusieurs feuilles : 1 pour chaque mois

je recherche une macro pouvant recopier certaines infos automatiquement chaque mois et les placer dans ce listing/recapitulatif

(ceci n'est pas du tout le fichier original mais le principe est le même)

Merci d'avance pour votre aide

Bonjour,

à tester,

Sub test()
Set sh1 = Sheets("Listing")
lastRw = sh1.Cells(Rows.Count, 1).End(xlUp).Row + 1
For Each f In Worksheets
 If f.Name <> sh1.Name Then
    lastRowM = f.Cells(Rows.Count, 1).End(xlUp).Row
    rngM_donné = Range(Cells(3, "A").Address, Cells(lastRowM, "F").Address).Address
    f.Range(rngM_donné).Copy sh1.Cells(lastRw, 2)
    sh1.Range(Cells(lastRw, "A").Address, Cells(lastRw + lastRowM - 3, "A").Address).Value = f.Name
    lastRw = sh1.Cells(Rows.Count, 1).End(xlUp).Row + 1
 End If
Next
End Sub