Sub Macro7()
With Sheets("NOUVEAU SALARIE")
[tblInfosemployé].ListObject.ListRows.Add 1
[tblInfosemployé[Nom]].Rows(1) = .[E12]
[tblInfosemployé[Prenom]].Rows(1) = .[C12]
[tblInfosemployé[Service]].Rows(1) = .[C14]
[tblInfosemployé[Poste]].Rows(1) = .[C16]
[tblInfosemployé[Responsable]].Rows(1) = .[C18]
[tblInfosemployé[Date d''Entree]].Rows(1) = .[C20]
[tblJournaldeformation].ListObject.ListRows.Add 1
[tblJournaldeformation[NOM / PRENOM]].Rows(1) = .[E12] & " " & .[C12]
.Range("E12,C12,C14,C16,C18,C20").ClearContents
End With
[tblJournaldeformation].Parent.Activate
End Sub