Erreur 13 introuvable

Bonjour,

Je n'arrive pas à trouver d'où provient mon erreur, pouvez-vous m'aider s'il vous plaît.

Lorsque j = 82 et que mon ctrl.Name = "Label80", l'erreur 13 apparaît au Next ctrl, je ne fais pas du vba depuis très longtemps et la recherche d'erreur n'est clairement pas mon point fort. Voici le code de mon userform :

Private Sub UserForm_Initialize()
    Dim Année As String
    Dim Result As Variant
    Dim Sem As Integer
    Dim ctrl As MSForms.Label
    Dim i As Long
    Dim j As Double
    Dim SemTemp As Double

    SlcAnnee.AddItem "2023"
    SlcAnnee.AddItem "2024"
    SlcAnnee.AddItem "2025"

    Année = SlcAnnee.Value

    ReDim Result(1 To 52, 1 To 2)

For i = 2 To ThisWorkbook.Worksheets.Count
    If InStr(1, Worksheets(i).Name, Année) Then
        Sem = Mid(Worksheets(i).Name, 12, 2)
        Result(Sem, 1) = Worksheets(i).Name
        Result(Sem, 2) = Worksheets(i).Cells(3, 7).Value
    End If
Next i

    For j = 2 To 104 Step 2
        SemTemp = j / 2

        For Each ctrl In UserForm5.Controls
            If TypeOf ctrl Is MSForms.Label Then
            If ctrl.Name = "Label" & j Then
                If IsEmpty(Result(SemTemp, 2)) Then
                    Result(SemTemp, 2) = "N/A"
                Else
                    ctrl.Caption = CStr(Result(SemTemp, 2))
                End If
                Exit For
            End If
            End If
        Next ctrl
    Next j
End Sub

Merci d'avance.

Bonjour et bienvenue sur le forum

Il serait plus simple de rechercher l'errreur si on disposait du fichier, même anonymisé mais reproduisant cette erreur...

Bye !

Vous avez raison pardon, voici le fichier.

Du coup c'est bon, j'avais mon ctrl en MSForms.Label alors forcément quand c'en était pas un ça me mettait une erreur 13.