If Dir(ThisWorkbook.Path & "\" & Me.Nom & ".jpg") <> "" Then
ChDir ActiveWorkbook.Path
Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Me.Nom & ".jpg")
Else
On Error Resume Next
Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & "transparent.gif")