Boucle qui recopie mal le logo

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

bonjour

essaie ceci

    For Each c In Range("ab4:ab120")
        nom = c.Value
        If nom <> "" Then
            Worksheets("Feuil1").Copy After:=Worksheets(Worksheets.Count)
            ActiveSheet.Name = nom
        End If
    Next c

H2so4, ça marche du tonnerre!

Merci beaucoup et très bonne journée