Attention au signe deux-points qui est juste à droite du Else ; ça signifie : « Sinon rien » ; et MsgBox "pas bon" aurait dû être en dessous, comme suit :
VB:
Sub site()
If Feuil1.Range("F1").Value = Feuil1.Range("G1").Value Then
MsgBox "bon"
Else
MsgBox "pas bon"
End If
End Sub
D'autre part, cette sub pourrait être optimisée ainsi :
VB:
Sub site()
MsgBox IIf(Feuil1.[F1] <> Feuil1.[G1], "pas ", "") & "bon"
End Sub
Mais tout ceci est juste pour info puisque finalement, une formule suffit.