Regrouper plusieurs feuilles en une seule sauf deux onglets

Bonjour à tous,

Je cherche à regrouper plusieurs feuilles sur un seul onglet "Récap". L'un des membres du groupe m'a gentiment proposé le code suivant qui marche à merveille:

Option Explicit
Public stpevt As Boolean
Sub RegroupeFeuilles()
Dim Lg As Integer, lgrecap As Integer
Dim Sh As Worksheet, f As Worksheet

Application.ScreenUpdating = False
stpevt = True
Set f = Sheets("Récap")
f.UsedRange.Delete
For Each Sh In Worksheets
    If Sh.Name <> f.Name And Sh.Name <> "bibi" Then
        Lg = Sh.UsedRange.Rows.Count
        lgrecap = f.UsedRange.Rows.Count + 1
        Sh.Range("a1:p" & Lg).Copy
        With f.Range("a" & lgrecap)
            .PasteSpecial Paste:=xlPasteValues
            .PasteSpecial Paste:=xlPasteFormats
        End With
    End If
Next Sh
Application.ScreenUpdating = True
stpevt = False
End Sub

Sauf qu'en avançant dans mon fichier, je viens de réaliser que chaque nouvel onglet créé sera rajouté systématiquement sur l'onglet "Récap".

Hors j'ai deux nouveaux onglets que je souhaite rajouter à mon fichier ( "Synthèse Mensuelle" + "Synthèse Annuelle") et que je ne souhaite pas intégrer dans l'onglet "Récap".

Pouvez-vous svp m'indiquer comment je pourrais adapter le code ci-dessus pour que cela ne prenne plus en compte mes deux nouveaux onglets?

Je vous remercie pour votre aide!!

Bonjour,

Pouvez-vous svp m'indiquer comment je pourrais adapter le code ci-dessus pour que cela ne prenne plus en compte mes deux nouveaux onglets?

Je suis étonné que vous ne le voyez pas...

Dans cette ligne

If Sh.Name <> f.Name And Sh.Name <> "bibi" Then

Vous ajoutez le nom de deux onglets que vous ne voulez pas
La ligne modifiée comme ceci :

If Sh.Name <> f.Name And Sh.Name <> "bibi" and sh.name <> "Synthèse Mensuelle" and sh.name <> "Synthèse Annuelle" Then

Cordialement

Bonjour,

Je vous avoue que je ne connais pas du tout le VBA, je commence à m'y intéresser..

Cela peut être évident pour vous, mais ce n'est pas forcément le cas pour tout le monde

Merci en tout cas pour votre retour rapide, cela a bien marché.

Bonne journée.