'--- Positionnement dans la base
Ligne = ActiveSheet.[A65000].End(xlUp).Row + 1
'--- Transfert Formulaire dans BD
ActiveSheet.Cells(18, 6) = Me.ComboBox2
ActiveSheet.Cells(18, 8) = CVDate(Me.date_depart)
ActiveSheet.Cells(18, 11) = CVDate(Me.date_retour)
'-- Civilité
temp = ""
For Each C In Me.Frame1.Controls
If C.Value = True Then
temp = C.Caption
End If
Next C
ActiveSheet.Cells(18, 14) = temp
nettoie
End Sub