Joindre des données de plusieurs feuilles dans une seule feuille

Bonsoir je cherche une methode qui va me permettre de parcourir toutes les feuilles numéroté de mon classeur de 1 à 10

de récupérer les valeurs des cellules de la plage D13 à I40 et les colles dans la feuille AllTasks avec liaison si possible .

recuperer a chaque fois le nom de la feuille dans le colonne A et B .

Comme ça a chaque modification les données seront actualisées.

Je suis preneur en formule ou en VBA

Bonjour

Une piste http://www.excel-formations.fr/Trucs_astuces/PQ04.php

Bonsoir Msidibe22,

Si j'ai bien compris ta demande, ce bout de code devrait faire l'affaire :

Sub Msidibe22()

    Dim ws1 As Worksheet, i As Long, dl As Long, t As String
    Set ws1 = Worksheets("AllTasks")
    dl = ws1.Cells(Application.Rows.Count, 1).End(xlUp).Row - 1

    For i = 1 To 10 Step 1
        Worksheets(i).Range("D13:I40").Copy ws1.Range("C" & dl + 1 & ":H" & dl + 28)
        t = Worksheets(i).Name
        ws1.Range("A" & dl + 1 & ":B" & dl + 28).Value = t
        dl = ws1.Cells(Application.Rows.Count, 1).End(xlUp).Row
    Next i

End Sub

Si tu as des questions ou qu'il ne répond pas à ta demande, n'hésite pas à m'en informer ;)

Cordialement,

LSK