Probleme avec userform

[Nicko]

bonsoir,

j'ai un bouton sur une page qui m'ouvre un Userform avec le code suivant:

Private Sub Suivi_Click() > ce code est sur la feuil7
Modif.Show
End Sub

Dans l'Initialize du Userform, j'ai le code suivant:

Private Sub UserForm_Initialize()
If ActiveCell.Column = 1 Then
Ref.Caption = "Réf. " & ActiveCell.Value
Else
MsgBox "La sélection n'est pas une REFERENCE !", vbInformation + vbOKOnly, "ERREUR"
GoTo Fin
End If
... instructions
Fin:
unload me
End sub

J'aimerais que le userform se ferme si la Column n'est pas egale à 1, mais lorsque je fas le test, j'ai un message d'erreur me renvoyant au code du bouton sur ma page excel !!!

j'espere que c'est clair :-(

D'ou vient le probleme ?