chemin = ActiveWorkbook.Path
monfich = chemin & "\" & Ws.Cells(lig, 2).Value & ".jpg"
monfich2 = chemin & "\" & "Sablier.jpg"
monfich3 = chemin & "\" & "Chrono.jpg"
Me.Image1.Picture = Nothing
Me.Image2.Picture = Nothing
Me.Image3.Picture = Nothing
On Error Resume Next
Me.Image1.Picture = LoadPicture(monfich)
Me.Image2.Picture = LoadPicture(monfich2)
Me.Image3.Picture = LoadPicture(monfich3)