Dim dest As Range
Dim ctrl As Control
Dim of As Byte
' Formule pour date de peremptionSet dest = Sheets("Primaire").cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0)
Dperemption2 = "=DAYS360(TODAY(),RC[-1])"
dest.Offset(0, 16).FormulaR1C1 = Dperemption2
' localisation des elements renseigner pour enregistrement dans tableur
On Error Resume Next
For Each ctrl In Me.Controls
If ctrl.Tag <> "" Then
of = CByte(ctrl.Tag) - 1
dest.Offset(0, of).Value = ctrl.Value
End If
Next ctrl
dest.Offset(0, 10).Value = OptionChoisie & " "
dest.Offset(0, 20).Value = TypeProduit
dest.Offset(0, 28).Value = nonoui
dest.Offset(0, 30).Value = ouinon
dest.Offset(0, 31).Value = sse
On Error GoTo 0