Private Sub btncreer_Click()
Dim i&
If T2 <> "" Then
With Feuil2
fin = .Range("A" & Rows.Count).End(xlUp).Row
Feuil2.Cells(fin + 1, 1) = ComboBox1: ComboBox1 = ""
For i = 1 To 12
Feuil2.Cells(fin + 1, i + 1) = Controls("T" & i): Controls("T" & i) = ""
Next i
End With
Unload Me
employes.Show
End If
End Sub