Private Sub entre()
NL = Worksheets(Temp1.Caption).Range("C" & Cells.Rows.Count).End(xlUp).Row + 1
With Worksheets(Temp1.Caption)
.Cells(NL, 2).Value = T13
.Cells(NL, 3).Value = D1.Caption
[COLOR="red"].Cells(NL, 4).Value = T6 'Textbox date Mois/Année[/COLOR]
.Cells(NL, 9).Value = Val(T5)
.Cells(NL, 8).Value = T7
.Cells(NL, 10).Value = Val(T11)
End With
Unload Me
UserForm1.Show
End Sub