Erreur de compilation End If san bloc If

Bonjour j'ai un probleme avec mon code j'ai une erreur de compilation : Erreur de compilation End If san bloc If

Or je ne sais pas pourquoi j'ai ça sachant que j'ai pour moi bien compilé !

PS : MsgBoxPerso est une fonction non inclus dans excel que j'ai pris sur sur un site internet.

Merci d'avance !

Bonne journée à vous !

Sub NonReg3_Fusion_Taches()
    Dim reponse2 As Byte
    Dim f1 As Worksheet
    Set f1 = ActiveSheet
    Dim reponse

    reponse = MsgBox("Voulez-vous fusionner les Tâches pour les 3 mesurages ?", vbYesNoCancel)

    If reponse = vbCancel Then
        Exit Sub
    ElseIf reponse = vbNo Then
        Exit Sub
    Else:
        reponse2 = MsgBoxPerso("Combien de mesurages ?", "test", vbQuestion, "2 mesurages", "3 mesurages", True)

        Select Case reponse2
        Case 0
            Exit Sub
        Case 2
            f1.Range("F5:AC7").Select
            Selection.UnMerge
            Selection.Merge
        Case 3
            f1.Range("F5:AO7").Select
            Selection.UnMerge
            Selection.Merge
    End If

End Sub

J'ai directement trouvé la solution apres avoir posté

Il manqué un End Select....