Autre regroupement des parties de feuilles Excel 2007

Bonjour à vous

Me revoilà encore pour la question de regroupement de feuilles via un VBA, en effet je ne maîtrise pas encore la création des VBA mais au fur et à mesure de votre aide j'y arriverais à 30%

Ma question est schématisé via le fichier attaché,

veuillez y jeter un coup d'oeil et merci pour votre intêret

anzid

Bonjour anzid, forum,

Essaie avec ce code :

Sub regroupe()
Dim i As Integer, cpt As Integer, derlign As Integer, tablo
    Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
        With Sheets(i)
            If .Name <> "Résultat souhaité" Then
                cpt = .[A8].End(xlDown).Row + 2
                tablo = .Range("A" & cpt & ":D" & .Range("A" & cpt).End(xlDown).Row)
                Sheets("Résultat souhaité").Select
                derlign = [A65536].End(xlUp).Row
                Range(Cells(derlign + 1, 1), Cells(derlign + 4, UBound(tablo, 1))) = Application.Transpose(tablo)
            End If
        End With
    Next i
    If [A1] = "" Then Rows(1).Delete
    Cells.EntireColumn.AutoFit
End Sub

Salam vba-new

Merci beaucoup pour votre intervention que je viens de le voir et je vais l'essayer et vous répondre