Bonsoir à tous.
Après 2 jours à chercher dans tous les sens, je viens vous demander un coup de main.
Voilà une partie de mon code (il est pas top je sais, je suis pas codeur du tout....)
For Each c In Range("ab4:ab120")
nom = c.Value
If nom <> "" Then
Sheets.Add Count:=1, After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nom
Worksheets("Feuil1").Cells.Copy
Selection.PasteSpecial
Application.CutCopyMode = False
'Copier-coller le logo
Sheets("Feuil1").Shapes("Image 2").Copy
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil1" Or Sheets(i).Name <> "Travail" Then Sheets(i).Paste Range("B1")
Next i
End If
Next c
Mon problème: Je souhaitais reproduire à l'identique la feuille 1 sur toutes les autres feuilles créées.
J'ai du coller le logo séparément car je n'arrivais pas à copier la mise en forme du tableau (avec les fusions) sans ça.
Du coup, à chaque incrémentation, il ajoute un logo de plus (feuille8, +8 logos.....) Et de plus il n'est pas centré.
Si vous avez une idée, je suis preneur, vraiment.
Merci