Récuperer des lignes et colonnes de plusieurs feuilles

Bonjour à tous,

j'ai besoin de votre aide et je m'adresse à vous pour m'apporter de soutien afin d'élaborer un code VBA me permettant de récupérer un ensemble de données sur les mêmes colonnes de plusieurs feuilles d'un classeur dans une feuille synthèse.

en effet, je veux avoir le détail par nature de charges engagées dans une feuille synthèse. le fichier en annexe donne plus d’éclaircissement sur ce dont j'ai besoin.

NB: le classeur contient plus d 200 feuilles, le fichier en annexe n'est qu'un modele pour mieux expliquer ce dont j'a besoin

Merci d'avance

Sub compiler()

Dim ws As Worksheet
Dim ligne As Integer

ligne = 5

    For Each ws In Worksheets
        If ws.Name <> "SYNTHESE" Then
            Cells(ligne, 1) = ws.Range("A2")
            Cells(ligne, 2) = ws.Range("D4")
            Cells(ligne, 3) = ws.Range("D5")
            Cells(ligne, 4) = ws.Range("D6")
            Cells(ligne, 5) = ws.Range("D7")
            Cells(ligne, 6) = ws.Range("D8")
            Cells(ligne, 7) = ws.Range("D9")
            Cells(ligne, 8) = ws.Range("D10")
            Cells(ligne, 9) = ws.Range("D11")
            Cells(ligne, 10) = ws.Range("D12")
            Cells(ligne, 11) = ws.Range("D42")
            ligne = ligne + 1
        End If
    Next ws

End Sub

@nouri-8 : cela te convient-il ?

merci Beaucoup pour votre aide, ca m'a beaucoup servi, je vous suis reconnaissant.

merciii