Ajout de +1 et sélection de la cellule ajouté

[daiko]

Bonjour et meilleurs voeux à toutes et tous

Je veux incrémenter des noms dans ma liste. Jusque là pas de problème.
Pour que je puisse les sélectionner j'utilise :
"Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A13:A21"), Target) Is Nothing And Target.Count = 1 Then"
mais je suis obligé de "pré-sélectionner" la plage des cellules.

Ce que je souhaiterai faire c'est que l’incrémentation se fasse automatiquement afin que si il y a des
cellules vides elles ne soient pas sélectionnables.

Je me permets de joindre mon fichier si quelqu'un peut regarder.

Cdt
F