Insérer une image avec le nom du fichier

Merci de votre réponse.
Cela fonctionne très bien, j'importe effectivement l'image avec le nom du fichier.
2 petites questions:
Pourquoi ajoute-t-il en dernier une image vide dans laquelle se trouve un message "Impossible d'afficher l'image liée ...." alors que toutes les images sont bien présentes
Dans les onglets créés, il y a "Retour sommaire" indiqué en A1.
je ne vois pas très bien à quoi sert cette cellule car rien ne se passe lorsqu'on clique sur cette cellule ...
Je marque ma question comme résolue.
Encore merci..
Carine

Est-il aussi possible d'augmenter la hauteur de l'image ? (200 ou 300 ou 400)
Si oui, comment procéder ?
Cordialement,
Carine

Si tu veux avoir le nom sans .jpg à la fin change cette macro qui est en dessous de Private Sub UserForm_Initialize()

'céation d'onglets
Sub Creation_Sheet()
Dim montexte As String
Dim Nb_Ligne, Nb_Sheet, i
    Nb_Ligne = Sheets("Sommaire").Cells(Rows.Count, 1).End(xlUp).Row
    Nb_Sheet = Sheets.Count
    If Nb_Ligne = Nb_Sheet Then Exit Sub
    For i = 2 To Nb_Ligne
        Sheets.Add After:=Sheets(Sheets.Count)
        NettoieCode
        creer_macro
      montexte = Sheets("Sommaire").Cells(i, 1)
     Sheets("Sommaire").Cells(i, 1) = Left(montexte, Len(montexte) - 4) 'enleve .jpg
        ActiveSheet.Name = Sheets("Sommaire").Cells(i, 1)
        Next i
    Sheets("Sommaire").Select
End Sub

@+ Le Pivert

Merci beaucoup ... Cela fonctionne très bien ...

Pour mon "édification" personnelle..., j'aurais quand même bien voulu savoir comment on arrive à Private Sub UserForm_Initialize()
Entretemps j'avais encore cherché et passé en revue tous ces modules dans visual basic sans retrouver cette partie de programmation ...

Très cordialement,
Carine

C'est dans le module de l'UserForm.

Pour y accéder afficher l'Userform en cliquant dessus dans la partie haut gauche de l'éditeur

ensuite double cliquer sur un commandbutton

Voir ceci qui est plus explicite en image:

https://silkyroad.developpez.com/VBA/UserForm/

Voilà