Modification de macro

Bonsoir le forum

En pièce jointe j'ai mis un fichier contenant une macro me permettant de créer autant de feuilles par rapport à une liste et d'y insérer des tableaux .

Je cherche à compiler toutes ces fiches dans une même feuille et ensuite faire de la mise en forme

J'ai besoin soit de modifier ce bout de code

'Import des feuilles dans la nouvelle feuille adductabilité
For Each F In Worksheets
    If F.Name <> sh.Name Then
        If WorksheetFunction.CountA(F.UsedRange) <> 0 Then
            With F
                .Range(.Cells(1, 1), .Cells(DerLig(F), DerCol(F))).Copy _
                sh.Cells(DerLig(sh) + 2, 1)
            End With
        End If
    End If
Next
Set sh = Nothing: Set F = Nothing

afin de ne compiler que les feuilles nommées avec "PB 11111"

ou

de trouver le moyen que la macro "Générer"qui crée chaque feuille ne fasse plus de feuille mais les tableaux directement en "B7" de la feuille "Adductabilité des sites"

si quelqu'un pouvait y jeter un oeil SVP

D'avance je vous remercie pour votre aide et votre disponibilité

Pardon voilà le fichier

Bonjour,

que veux tu dire avec

que les feuilles nommées avec "PB 11111"

s'il s'agit des feuilles dont le nom commence par PB modifie ta ligne "if":

If F.Name <> sh.Name AND NOT (f.Name like "PB*" ) Then 

pour le reste j'ai pas Excel sous la main et ta question manque donc de précision ..

Bonsoir pierre.jy

Ok je prends , mais j'ai supprimé le "Not"

merci beaucoup je continue

bon match si tu regardes

Bien vu pour le NOT