Macro marques-places

Bonjour je cherche à faire une macro pour faire des marques places automatique dans excel (ce que je veux faire ne fonctionne pas avec le publipostage de word).

Je ne sais pas par ou commencer .

J'ai une liste dans mon fichier ou les noms des personnes et une image qui me sert de fond.

Je voudrais qu'avec une macro il me copie l'image et me renseigne le nom avec une zone de texte par excel automatiquement.

Je vous joint un fichier pour m'aider, et si vous avez des pistes.

NOTA : il faut que ça passe à l'impression sur une feuille A4.

Merci à tous,

Bonjour,

une proposition

Merci,

Je fais être chiant mais peux-tu m'expliquer un peu la macro que j'apprenne, Merci,

bonjour,

code avec quelques commentaires

Sub aargh()
    n = 2 'nombre d'étiquettes par ligne
    On Error Resume Next '
    Sheets("imprime").Delete ' on supprime la feuille imprime
    On Error GoTo 0
    Set wsi = Sheets.Add(after:=Sheets(1)) 'on ajoute une nouvelle feuille
    wsi.Name = "imprime" 'on la nomme imprime
    Set wss = Sheets("feuil2") ' wss pointe vers feuil2
    wsi.Rows.RowHeight = wss.Shapes("group 3").Height ' on adapte la hauteur des cellules = hauteur du dessin
    ' pour laisser excel déterminer quand faire le saut de page
    For i = 1 To wss.Cells(Rows.Count, 1).End(xlUp).Row 'on prend tout les noms 1 par 1
        wss.Shapes("textbox 2").TextFrame.Characters.Text = wss.Cells(i, 1) ' on fait l'étiquette
        wss.Shapes("group 3").Copy 'on la copie
        wsi.Paste 'sur la feuille imprime
        s = wsi.Shapes.Count ' on determine le numéro du dessin que l'on vient de copier
        Set csh = wsi.Shapes(s) ' csh pointe vers ce dessin
        csh.Top = Int((i - 1) / n) * csh.Height 'on positionne le dessin sur la feuille imprime en fonction de la hauteur
        csh.Left = ((i - 1) Mod n) * csh.Width ' et de la largeur
    Next i
End Sub