Macro pour un tableau de scolarité

Option Compare Text

Sub Macro1()
    Application.ScreenUpdating = False
    Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6")).Select
    Sheets("Sheet1").Activate
    Range("C14:X100").Select
    Selection.ClearContents

    For f = 1 To 6
        Windows("Année actuelle.xls").Activate
        Sheets(f).Select
        DerLig = [C13].End(xlDown).Row
        ReDim Classe(6, 100) As String
        ReDim Position(6, 100) As String
        ReDim Naissance(6, 100) As String
        ReDim Sexe(6, 100) As String
        ReDim Prenom(6, 100) As String
        ReDim Nom(6, 100) As String
        ReDim Num(6, 100) As String
        For l = 14 To 100
            If Cells(l, "C") = "" Then GoTo Restitution
            If Cells(l, "C") = "A" Then
                Classe(f, l) = f + 1
            ElseIf Cells(l, "C") = "R" Then
                Classe(f, l) = f
            End If
            If f + 1 = 7 Then GoTo Suivant
            Position(f, l) = Cells(l, "C")
            Naissance(f, l) = Cells(l, "F")
            Sexe(f, l) = Cells(l, "J")
            Prenom(f, l) = Cells(l, "M")
            Nom(f, l) = Cells(l, "Q")
            Num(f, l) = Cells(l, "V")
Suivant:
        Next l
        
Restitution:
        Windows("Année prochaine.xls").Activate
        For l = 14 To 100
            If Classe(f, l) = "" Then GoTo FeuilleSuivante
            If Classe(f, l) = f + 1 Then
                If f + 1 = 7 Then GoTo Suivant2
                Sheets(f + 1).Select
            ElseIf Classe(f, l) = f Then
                Sheets(f).Select
            End If
            DerLig2 = [V1000].End(xlUp).Row + 1
            Cells(DerLig2, "C") = Position(f, l)
            Cells(DerLig2, "F") = Format(Naissance(f, l), "m/d/yyyy")
            Cells(DerLig2, "J") = Sexe(f, l)
            Cells(DerLig2, "M") = Prenom(f, l)
            Cells(DerLig2, "Q") = Nom(f, l)
            Cells(DerLig2, "V") = Num(f, l)
Suivant2:
        Next l
FeuilleSuivante:
    Next f
End Sub