Sheets(2).Range("B" & DL) = Me.Label_info.Caption
Sheets(2).Range("C" & DL) = Me.Txt_nom
Sheets(2).Range("D" & DL) = Me.Txt_description
Sheets(2).Range("E & DL") = CCur(Me.Txt_prix)
Sheets(2).Range("H & DL") = CInt(Me.Txt_mini)
Sheets(2).Range("J & DL") = "Active"