[MichelXld]

bonsoir Michel ... ;o)


j'ai supposé que tu parlais des images ajoutées depuis le menu Insertion (et non issues d'un controle Image)

 
   Const Fichier As String = "C:\ImageTemp.gif"
   
   Dim nb As Byte
   Dim Sh As Shape
   
    'Définit le 1er shape de la feuille comme image
    ' à afficher dans l'UserForm
    Set Sh = Worksheets("Feuil1").Shapes(1)
    
    'copie le shape dans la feuille
    Sh.CopyPicture
    'crée un graphique
    With ActiveSheet.ChartObjects.Add(0, 0, _
                        Sh.Width, Sh.Height).Chart
        .Paste 'colle l'image dans graphique
        ' enregistre le graphique au format gif
        .Export Fichier, "GIF"
    nb = ActiveSheet.ChartObjects.Count
    'supprime le graphique
    ActiveSheet.ChartObjects(nb).Delete

bonne soirée
michel