XL 2016 Soustraction par ordre

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim TL(1 To 7) 'déclare la variable TL (Tableau des Lignes)

Set O = Worksheets("Feuil1") 'définit l'onglet O
Set PL = O.Range("A1").CurrentRegion 'définit la plage PL
DL = PL.Rows.Count 'définit la dernière ligne éditée de la plage PL
For I = 2 To DL 'boucle des ligne 2 à DL
    TL(1) = Application.WorksheetFunction.Large(PL.Rows(I), 1) 'définit la première plus grande valeur de la ligne de la boucle
    TL(2) = Application.WorksheetFunction.Large(PL.Rows(I), 2) 'définit la seconde plus grande valeur de la ligne de la boucle
    TL(3) = Application.WorksheetFunction.Large(PL.Rows(I), 3) 'définit la troisième plus grande valeur de la ligne de la boucle
    TL(4) = Application.WorksheetFunction.Large(PL.Rows(I), 4) 'définit la quatriemme plus grande valeur de la ligne de la boucle
    TL(5) = Application.WorksheetFunction.Large(PL.Rows(I), 5) 'définit la cinquième plus grande valeur de la ligne de la boucle
    TL(6) = Application.WorksheetFunction.Large(PL.Rows(I), 6) 'définit la sixième plus grande valeur de la ligne de la boucle
    TL(7) = Application.WorksheetFunction.Large(PL.Rows(I), 7) 'définit la septième plus grande valeur de la ligne de la boucle
    'renvoie dans la cellule ligne I colonne "I" la valeur de la soustraction
    O.Cells(I, "I").Value = TL(1) - TL(2) - TL(3) - TL(4) - TL(5) - TL(6) - TL(7)
Next I 'prochaine ligne de la boucle
End Sub