Bonjour,
Il n'existe pas de gestion d'insertion d'image donc il te faut exécuter la Sub manuellement (avec un bouton ou autre) :
Sub Test()
Dim Img As Shape
'au moment de l'insertion, le shape devient dernier dans la liste
Set Img = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
With Img
.Width = 100 'largeur
.Height = 100 'hauteur
.Top = 100 'depuis le bord haut de la feuille
.Left = 100 'depuis le bord gauche de la feuille
'à noter que le point de référence de l'image est l'angle supérieur gauche
End With
End Sub