Extraction de lignes de feuilles

Sub macro1()
Dim I As Byte 'déclare la variable I (Incrément)
Dim TF() As String 'déclare le tableau de variables TF (Tableau des fichiers)
Dim LI As Long 'déclare la variable LI (LIgne)
Dim CO As Workbook 'déclare la variable CO (Classeur Ouvert)
Dim OT As Worksheet 'déclare la variable OT (Onglet de Travail)
Dim S As Double 'déclare la variable S (Somme)

With Application.FileDialog(msoFileDialogOpen) 'prend en compte la boîte de dialogue "Ouvrir"
    .AllowMultiSelect = True 'permet la sélection de plusieurs fichiers
    .Show 'affiche la boîte de dialogue
    For I = 1 To .SelectedItems.Count 'boucle sur tous les fichiers sélectionnés
        ReDim Preserve TF(1 To I) 'redimensionne le tableau TF
        TF(I) = .SelectedItems(I) 'stocke, dans la variable indexée I du tableau TF, le nom complet (avec le chemin d'accès) du fichier sélectionné
    Next I 'prochain fichier sélectionné dans la boîte de dialogue 'Ouvrir"
End With 'fin de la prise en compte de la boîte de dialogue "Ouvrir
LI = Application.InputBox("Quelle ligne voulez-vous sommer ?", "LIGNE", Type:=1) 'définit la ligne LI de la somme (via une boîte d'entrée)
For I = 1 To UBound(TF) 'boucle sur tous les fichiers sélectionnés
    Workbooks.Open (TF(I)) 'ouvre le fichier
    Set CO = ActiveWorkbook 'définit le classeur ouvert CO
    Set OT = CO.Sheets(1) 'définit l'onglet de travail OT
    S = S + OT.Cells(LI, 1) 'définit la somme S
    CO.Close False 'ferme le classeur ouvert CO sans enregistrer
Next X 'prochain fichier de la boucle
MsgBox S 'affiche la somme S dans un message
End Sub