Bonsoir violaine,
pour insérer une image:
sub inserer_image ()
Range('G11').Select
ActiveSheet.Pictures.Insert( _
'C:\\Documents and Settings\\VIOLAINE\\Mes documents\\Mes images\\image à insérer'). Select
End Sub
Bien sûr, il faut adapter 'C:\\Documents..... etc' à la configuration de ton système, c'est tout simplement l'adresse de ton image...
pour insérer à partir du commandbutton tu mets ton code en 'commandbutton(son N°)_quandclick'
A+
Philippe