Public Sub emp_Sauve()
Dim ws As Worksheet
Dim lRow As Long
Set ws = Worksheets("employés")
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With ws
.Cells(lRow, 1).Value = emp.empTitre.Value
.Cells(lRow, 2).Value = emp.empNom.Value
.Cells(lRow, 3).Value = emp.empPrénom
.Cells(lRow, 8).Value = emp.empNée.Value
.Cells(lRow, 9).Value = emp.empAge.Caption
.Cells(lRow, 10).Value = emp.empLieu.Value
.Cells(lRow, 11).Value = emp.empPays.Value
.Cells(lRow, 12).Value = emp.empNationalité.Value
.Cells(lRow, 13).Value = emp.empIdentité.Value
.Cells(lRow, 14).Value = emp.empSécurité.Value
.Cells(lRow, 15).Value = emp.empSCode.Value
.Cells(lRow, 17).Value = emp.NumRue.Value
.Cells(lRow, 18).Value = emp.empAdresse.Value
.Cells(lRow, 19).Value = emp.empCC.Value
.Cells(lRow, 21).Value = emp.Cp.Value
.Cells(lRow, 22).Value = emp.Ville.Value
.Cells(lRow, 23).Value = emp.Dépt.Value
.Cells(lRow, 24).Value = emp.empDépt.Value
.Cells(lRow, 25).Value = emp.empService.Value
.Cells(lRow, 26).Value = emp.empTéléphone.Value
.Cells(lRow, 27).Value = emp.empCellulaire.Value
.Cells(lRow, 28).Value = emp.empPoste.Value
.Cells(lRow, 29).Value = emp.empEmail.Value
.Cells(lRow, 30).Value = emp.empEmploi.Value
.Cells(lRow, 31).Value = emp.empDate.Value
.Cells(lRow, 32).Value = emp.empContrat.Value
.Cells(lRow, 33).Value = emp.empdébut.Value
.Cells(lRow, 34).Value = emp.empFin.Value
End With
End Sub