'Insérer Image Doseur
If Me.LstDoseur <> "" Then
Dim im As Object, c As Range, a As Range
Set im = ActiveSheet.Pictures.Insert("\\sparte.asp.fr\data\adv\photos\" & _
Me.LstDoseur & ".jpg")
Set c = ActiveCell
Set a = c.MergeArea
With im.ShapeRange
.LockAspectRatio = True 'pour conserver les proportions de l'image
.Top = c.Top
.Left = c.Left
If .Height / .Width > a.Height / a.Width Then
.Height = a.Height
Else
.Width = a.Width
End If
End With
End If