Problème de compilation structure IF

Bonjour à tous,

Je débute en VBA et ne parviens pas à trouver l'erreur sur le petit bout de code ci-après :

Sub Comparaison_mail_identite()

Dim nom As String
Dim prenom As String
Dim email As String
Dim i As Integer

i = Range("K3")

nom = Cells(i, 2)
prenom = Cells(i, 3)
email = Cells(i, 4)

If email = nom & "." & prenom & "@boitemail.net" Then MsgBox "Vérifié"
Else MsgBox "Faux"
End If

End Sub

Lorsque je tente de compiler cette macro, une messagebox apparait : "Erreur de compilation Else sans If"

Or je ne pense pas avoir non respecté la structure....

Merci d'avance pour vos lumières

Salut et bienvenue sur le Forum,

Tu dois modifier tes lignes ainsi, avec un retour à la ligne après Then

If email = nom & "." & prenom & "@boitemail.net" Then
    MsgBox "Vérifié"
Else: MsgBox "Faux"
End If

Cordialement.

EDIT : Je viens de constater à l'instant que les deux points après Else se sont inscrits automatiquement (essaie seulement de les effacer )

Super !

ça a effectivement fonctionné =D

Merci pour ton aide

Rechercher des sujets similaires à "probleme compilation structure"