st1 = Me.txtNom.Text
Me.txtNom.Text = UCase(Mid(st1, 1, 1)) & Mid$(st1, 2, Len(st1))
st2 = Me.txtPrenom.Text
Me.txtPrenom.Text = UCase(Mid(st2, 1, 1)) & Mid$(st2, 2, Len(st2))
' Mise en place des valeurs saisies
Worksheets("Donnees").Range("A65536").End(xlUp).Offset(1, 0).Value = txtMatricule.Value
Worksheets("Donnees").Range("B65536").End(xlUp).Offset(1, 0).Value = UCase(Mid(st1, 1, 1)) & Mid$(st1, 2, Len(st1))
Worksheets("Donnees").Range("C65536").End(xlUp).Offset(1, 0).Value = UCase(Mid(st2, 1, 1)) & Mid$(st2, 2, Len(st2))
Worksheets("Donnees").Range("D65536").End(xlUp).Offset(1, 0).Value = DTPickerd.Value
Worksheets("Donnees").Range("E65536").End(xlUp).Offset(1, 0).Value = DTPickerf.Value
Worksheets("Donnees").Range("G65536").End(xlUp).Offset(1, 0).Value = CombMotif.Value
Worksheets("Donnees").Range("H65536").End(xlUp).Offset(1, 0).Value = chbProlongation.Value
Worksheets("Donnees").Range("I65536").End(xlUp).Offset(1, 0).Value = DTPickerp.Value