For.. Next non-fonctionnel pour une raison inconnue (Usage Simple)

Bonjour !

J'essaie de comprendre le fonctionnement de VBA et ses concepts généraux. Toutefois, aujourd'hui, une embûche incompréhensive se pose sur mon chemin. Cette emûche survient à ma première utilisation de For..Next. Voilà le code en question :

Sub MergedAreaStartAndEnd()
    Dim prevAddress As Variant
    Dim rng As Range
    Dim rngStart As Range
    Dim rngEnd As Range
    Dim index As Integer

    prevAddress = For_X_to_Next_Ligne()

    For index As Integer = 1 To 5
        MsgBox "Working"
    Next

    Set rng = Range("B2")

    If rng.MergeCells Then

        Set rng = rng.MergeArea
        Set rngStart = rng.Cells(1, 1)
        Set rngEnd = rng.Cells(rng.Rows.Count, rng.Columns.Count)
        rngDiff = rngEnd.Row - rngStart.Row + 1
        MsgBox ("The difference is : " & rngDiff)

    Else

        MsgBox "Not merged area"

    End If

L'erreur a lieu au moment où j'utilise

 For index As Integer = 1 To 5

C'est une erreur de syntaxe, à ce qui paraît.

Merci pour votre lecture

-Binimo, l'Apprenti

Bonsoir,

    For index = 1 To 5
        MsgBox "Working"
    Next index

Cela fonctionne, merci beaucoup !