Sub Ajoute_Ligne(Contenu As String, onomTableau As ListObject)
' Ajoute les informations de la LigneSource dans le tableau de destination
Dim PositionLigneDestination As Long
Dim oLigneDestination As ListRow
Set oLigneDestination = onomTableau.ListRows.Add
PositionLigneDestination = oLigneDestination.Index + 1
onomTableau.Range.Cells(PositionLigneDestination, onomTableau.ListColumns(1).Index) = Contenu
Set oLigneDestination = Nothing
End Sub