Ajout d'une condition

Bonjour

je voudrais ajouter à ce code la condition suivante : Si dans feuille "ArchivCdes" des cellules sont sélectionnées dans la colonne "A" then

For Each cell In Selection
cell.Value = cell.Value + 1
Next cell

Merci d'avance

Nonno