Private Sub UserForm_Activate()
Sheets("donnees").Activate
derlig = Range("a65530").End(xlUp).Row
For i = 2 To derlig
frmRecette.cboCategorie.AddItem Cells(i, 1).Value
Next
Sheets("recettes").Activate
derlig = Range("a65530").End(xlUp).Row
lig = ActiveCell.Row
If lig < 2 Or lig > derlig Then lig = derlig
frmRecette.Lblligne.Caption = lig
Label11.Caption = Cells(lig, 2).Value
frmRecette.cboCategorie.Value = Cells(lig, 1).Value
frmRecette.lblNbPers.Caption = Cells(lig, 3).Value
frmRecette.lblPrep.Caption = Cells(lig, 4).Value
frmRecette.lblCuisson.Caption = Cells(lig, 5).Value
frmRecette.lblRepos.Caption = Cells(lig, 6).Value
frmRecette.txtAcc.Value = Cells(lig, 9).Value
frmRecette.txtVin.Value = Cells(lig, 10).Value
frmRecette.txtIngredient.Value = Cells(lig, 7).Value
frmRecette.txtRecette.Value = Cells(lig, 8).Value
chemin = ActiveWorkbook.Path
monfich = chemin & "/" & Cells(lig, 11).Value
On Error Resume Next
frmRecette.Image1.Picture = LoadPicture(monfich)
On Error GoTo 0
End Sub