Sub Nouveau()
Dim lR As Range
Dim Num As Long
Set lR = Sheets("Liste films").ListObjects("Tableau1").ListRows.Add(1).Range
'On Travaille à partir de la feuille Nouveau [Les '.range(...)' se rapportent au With qui précède donc la feuille
With Sheets("Nouveau")
lR(1, 2) = .Range("C8")
lR(1, 3) = .Range("C9")
lR(1, 4) = .Range("C10")
lR(1, 5) = .Range("F8")
lR(1, 6) = .Range("C12")
lR(1, 7) = .Range("C13")
lR(1, 8) = .Range("C14")
lR(1, 9) = .Range("F12")
lR(1, 10) = .Range("F13")
'Nettoyage des cellules de 'nouveau'
.Range("C8:C10,C12:C14,F8,F12:F13").ClearContents
'Calcul du numéro
lR(1, 1) = Application.Max(Sheets("Liste films").Range("Tableau1[N°]")) + 1
End With
End Sub