Bonjour à tous,
Une petite pause au boulot fait parfois un peu debien.... LOL
Fabrice, voici un code pour ouvrir la boite de dialogue Insertion/image,
Sub InsertImage()
Dim NomImage As String
Dim WS As Worksheet
Set WS = Sheets(1) 'à adpater, ici la 1ere feuille
If Application.Dialogs(xlDialogInsertPicture).Show(0) = True Then NomImage = WS.Shapes(WS.Shapes.Count).Name
'si l'utilisateur clique sur Inserer renvoie true sinon False
'pour récupérer le nom de l'image, je n'ai ps trouvé mieux que de récupérer l'index le plus élevé (shapes.count)
End Sub
A+++