With Sheets("Interventions_Antipol")
DerLigne = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Cells(DerLigne, 1) = Label_Fiche
.Cells(DerLigne, 2) = Format(DTPicker1, "dd-mmm-yyyy") 'Format pour ne mettre que jj-mmm-aaaa
.Cells(DerLigne, 3) = Format(TXT_1, "##:##")
.Cells(DerLigne, 4) = Format(TXT_2, "##:##")
.Cells(DerLigne, 5).FormulaR1C1 = "=RC[-1]-RC[-2]"
.Cells(DerLigne, 6) = Combo_1
.Cells(DerLigne, 7) = Val(TXT_3)
If Me.TXT_4 = "" Then .Cells(DerLigne, 8) = "" Else .Cells(DerLigne, 8) = CDbl(Me.TXT_4)
.Cells(DerLigne, 9) = Combo_2
If Me.TXT_5 = "" Then .Cells(DerLigne, 10) = "" Else .Cells(DerLigne, 10) = CDbl(Me.TXT_5)
If Me.TXT_6 = "" Then .Cells(DerLigne, 11) = "" Else .Cells(DerLigne, 11) = CDbl(Me.TXT_6)
.Cells(DerLigne, 12) = Combo_3
If Me.TXT_7 = "" Then .Cells(DerLigne, 13) = "" Else .Cells(DerLigne, 13) = CDbl(Me.TXT_7)
If Me.TXT_8 = "" Then .Cells(DerLigne, 14) = "" Else .Cells(DerLigne, 14) = CDbl(Me.TXT_8)
If Me.TXT_9 = "" Then .Cells(DerLigne, 15) = "" Else .Cells(DerLigne, 15) = CDbl(Me.TXT_9)
.Cells(DerLigne, 16) = Combo_4
.Cells(DerLigne, 17) = Txt_10
End With
'Appel la mise en forme
Call mefcAntipol