code vba pour informer que la cellule active n'est pas dans la colonne A

Sub Archivage()
'
'Création PMO le 31/07/2019
'
vnom = ActiveCell.Value                                     'sélection de la cellule active pour déffinir le nom a archiver

If vnom = "" Then                                           'si le nom de la cellule est vide alors message ci-dessous
    'MsgBox "veuillez Sélectionner un Nom", vbOKOnly + vbExclamation, "Information"
    'Exit Sub
End If

For Each vcellule In [a1:a3000]                             'Sélection de dans la collone A
    If vcellule.Value = vnom Then vselection = vselection & vcellule.Address & "," 'de toutes les cellules ayant le même nom
Next
If Len(vselection) > 0 Then                                 'si la sélection est supérieure à 0 = vrai
    Range(Left(vselection, Len(vselection) - 1)).Font.Strikethrough = True
    Range(Left(vselection, Len(vselection) - 1)).EntireRow.Select           'sélection de la ligne entière
End If
Selection.Copy                                              'copie la sélection

Sheets("Archive PlanAction").Select                         'ouvre l'onglet
    ActiveSheet.Range("a3").End(xlDown).Offset(1, 0).Select 'sélectionne la dernière cellule vide de la colonne A
    Selection.PasteSpecial Paste:=xlPasteAll                'copie spéciale

Sheets("Plan Action en cours").Select                       'retour sur l'onglet principal
Selection.Delete                                            'supprime les lignes qui ont été sélectionés au début
ActiveSheet.Range("A4").Select                              'se repositionne sur la cellule A4

End Sub

If vnom <> Columns(1) Then                              'si le nom de la cellule n'est pas dans la colonne A
   MsgBox "veuillez Sélectionner une cellule en Colonne A", vbOKOnly + vbExclamation, "Information"
 
End If