Option Explicit
Sub test()
Dim utilisateur As String, bdd As Variant, pos As Range, pict As Shape
bdd = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
utilisateur = Environ("Username")
If bdd = False Then Exit Sub
ActiveSheet.Pictures.Insert(bdd).Name = utilisateur
Set pos = ActiveSheet.Range("c5")
Set pict = ActiveSheet.Shapes(utilisateur)
With pict
.Left = pos.Left
.Top = pos.Top
.Height = pos.Height
.Width = pos.Width
.Placement = xlMove
If .Height <> pos.Height Then
.Height = pos.Height:
.LockAspectRatio = msoFalse
End If
If .Width <> pos.Width Then
.Width = pos.Width:
.LockAspectRatio = msoTrue
End If
End With
End Sub