1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 :
ce code créera une gamme appelée évidente dans le directeur nommé, le nom de la gamme est cible, il semble semblable à ce que vous vous avez dit jugé mais cela fonctionne pour moi ainsi lui donner un projectile
1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 :
Substrater Macro1 () Obscurcir la cible comme gamme Gamme (ActiveCell, ActiveCell.End (xlDown)). Choisi Placer la cible = l'Application.Selection Nom d'ActiveWorkbook.Names.Add : = " cible ", RefersTo : =target ActiveWorkbook.Names (« cible »). Commentaire = "" Sous-marin d'extrémité