Sub ajouter_une_formation()
'Permet d'ajouter une formation suivie par une personne
With Sheets("SUIVI FORMATIONS")
ListObject("TABLEAUSUIVI").ListRows.Add 1
[TABLEAUSUIVI[NOM-PRENOM]].Rows(1) = .[E7]
[TABLEAUSUIVI[SERVICE/POSTE]].Rows(1) = .[E9]
[TABLEAUSUIVI[FORMATION]].Rows(1) = .[G7]
[TABLEAUSUIVI[OPTIONNEL/OBLIGATOIRE]].Rows(1) = .[G9]
[TABLEAUSUIVI[DATE FORMATION]].Rows(1) = .[I8]
.Range("E7,G7").ClearContents
End With
End Sub