Récapitulatif selon nom de feuille

Bonjour à tous,

j'aimerais personnalisé ce code récupéré

Sub ListeRecap()
Dim F As Worksheet
Dim Dest As Range

Set Dest = ActiveSheet.Range("A5")
Dest.CurrentRegion.Offset(1).ClearContents

For Each F In Worksheets
  'If IsNumeric(F.Name) Then
    Dest = F.Name
    Dest.Offset(, 1) = F.Range("C4")
Dest.Offset(, 2) = F.Range("C5")
Dest.Offset(, 3) = F.Range("C6")
Dest.Offset(, 4) = F.Range("C7")
Dest.Offset(, 5) = F.Range("C8")
Dest.Offset(, 6) = F.Range("C4")
Dest.Offset(, 7) = F.Range("C5")
Dest.Offset(, 8) = F.Range("C6")
Dest.Offset(, 9) = F.Range("C7")
Dest.Offset(, 10) = F.Range("C8")

    Set Dest = Dest.Offset(1)
  'End If
Next F

Set Dest = Nothing

Lorsque je lance le code en dernière feuille, ce dernier récupère les données de toutes les feuilles.

En fait, je voudrais :

• dans un premier temps ne récupérer que les données des feuilles se terminant par "_1" et les mettre dans les colonnes 1 à 5 Dest.Offset(, 1) ..... Dest.Offset(, 5)
• dans un deuxième temps ne récupérer que les données des feuilles se terminant par "_2" et les mettre dans les colonnes 6 à 10 Dest.Offset(, 6) ..... Dest.Offset(, 10) .

Merci pour votre aide

Bonjour,

Je ne suis pas sûr d'avoir bien compris ton attente ... à voir

A+

Merci Frangy,

c'est presque cela.

au niveau des lignes c'est bon. Par contre le récapitulatif des données des feuilles "_2" doivent commencer en colonne 7 alors que toi tu les fais commencer en colonne 2 et tu ne les affiche qu'en colonne 7.

Désolé, je ne comprends pas

Peux-tu joindre un exemple de résultat attendu ?

A+

en fait j'ai contourné le pb en mettant le résultat attendu dans une 2e feuille.

Veux tu que je t'envoie quand même ce que j'attendais avant que ne mette résolu ?

Non, si tu obtiens le résultat recherché, tu peux passer le sujet à résolu.

A+