Private Sub UserForm_initialize()
répertoirePhoto = "C:\Users\PARIS\Documents\Perso\Sandrine\Bardusch" ' à adapter
LDetailNomClient = Range("MODELES!C" & Lig).Value
LDNumeroClient = Range("MODELES!B" & Lig).Value
LDetailNumModele = Range("MODELES!D" & Lig).Value
LDetailSpecificite = Range("MODELES!E" & Lig).Value
LDetailParticularite = Range("MODELES!F" & Lig).Value
LDetailCommentaire = Range("MODELES!G" & Lig).Value
LDDateSaisie = Format(Range("MODELES!H" & Lig).Value, "dd mmm yyyy")
LDDateModif = Format(Range("MODELES!I" & Lig).Value, "dd mmm yyyy")
MonImage = Range("MODELES!J" & Lig).Value
If Dir(répertoirePhoto & "\" & NomImage & ".jpg") <> "" Then
USFDetailModele.Image1.PictureSizeMode = fmPictureSizeModeStretch
USFDetailModele.Image1.Picture = LoadPicture(répertoireImage & "\" & NomImage & ".jpg")
End If
Run ("DetailModele")