Extension macro arborescence difficulté

Bonjour à tous

J'ai pris un fichier excal pour faire des arborescence, le fichier marche très bien, le seul souci que j'ai est la place de l'application de la macro, pour l'instant elle ne s'applique que sur les 10 premières lignes de la colonnes B, je voudrai étendre son utilisation à la totalité de la colonne B.

Merci d'avance à ceux qui pourront me donner une piste.

Je vous joint le fichier en exemple.

Bonjour,

dans le code VBA des feuilles "surveillées" remplacez :

    If Not Intersect(Target, Range("B3:B10")) Is Nothing Then

par :

    If Not Intersect(Target, Range("B:B")) Is Nothing Then
         If Target.Row <3 Then Exit Sub ' on stop la procédure si on a cliqué sur une des deux premières lignes

Pour aller sur ces codes il suffit de faire un clic droit sur l'onglet et sélectionner "Visualiser le code"

Attention, je n'ai pas essayé, mais cela reste logique, non ?

@ bientôt

LouReeD