Bonjour,
À l'aide de bouts de code glanés ici et là sur le Net ...
L'image s'insère à la fois dans le userform et dans le champ B4:E19 de la feuille active ... pas besoin de fusionner les cellules.
Voir si ça convient.
Private Sub cmd_insert_Click()
Dim chemin As String
Dim Photo As String
Dim cheminComplet As String
Dim dummy As String
Dim L As Single, T As Single, W As Single, H As Single
Dim Ws As Worksheet
cheminComplet = Application.GetOpenFilename
If cheminComplet <> "faux" Then
dummy = cheminComplet ' 1 l'extension
While Right(dummy, 1) <> "."
ext = Right(dummy, 1) & ext
dummy = Left(dummy, Len(dummy) - 1)
Wend
dummy = Left(dummy, Len(dummy) - 1) ' ici on élimine le .
' le nom du fichier
While Right(dummy, 1) <> "\"
Photo = Right(dummy, 1) & Photo
dummy = Left(dummy, Len(dummy) - 1)
Wend
' le chemin
chemin = dummy
' image dans le userform
Me.img.Picture = LoadPicture(cheminComplet)
Me.img.Visible = True
' Image dans la feuille
L = Range("B4").Left
T = Range("B4").Top
W = Range("B4:E4").Width
H = Range("B4:E19").Height
ActiveSheet.Shapes.AddPicture cheminComplet, True, True, L, T, W, H
End If
End Sub
Gelinotte