Bonjour,
Supposons que vous avez une forme nommée "Signature", destinée à recevoir l'image choisie via une boite de dialogue, alors voici un essai :
Sub AjouterSignature()
Dim FileDlg as FileDialog
Dim pImage$
Set FileDlg = Application.FileDialog(msoFileDialogFilePicker)
With FileDlg
.show
If .SelectedItems.count > 0 Then
pImage = .SelectedItems(1)
Else
Exit Sub
End If
end with
Activesheet.Shapes("Signature").Fill.UserPicture pImage
End Sub
Je n'ai pas testé donc je ne garantis pas le résultat. En tout cas, il faudra affecter cette macro à cette fameuse image "Signature" (bien renommée avant).
Cdlt,