Bonjour à tous,

J'ai ce code ci-dessous qui me permet de sélectionner une plage de cellule afin qu'elle soit visible alors que le reste du document est masqué.
Mais il n'est pas très pratique car lorsque j'ajoute des lignes à cette plage, je dois venir ici pour modifier les références.
J'ai donc nommée mes plages colorée comme suit :

- La plage Bleue = Arch_Gene!$A$14:$P$3403 est nommée Bleue
- La plage Verte = Arch_Gene!$A$3404:$P$3513 est nommée Verte
- La plage Jaune = Arch_Gene!$A$3514:$P$5170 est nommée Jaune
- La plage Grise = Arch_Gene!$A$5171:$P$5421 est nommée Grise
- La plage neutre qui ne bouge pas = Arch_Gene!$A$1:$P$13 est nommée Titre

Comment remplacer la partie en rouge dans mon code par le nom de la plage ? Ici Bleue.
Merci par avance pour l'aide que vous pourrez m'apporter.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CmbArch1_Click()
'Procédure d'accés aux lignes d'archives Ville - Zone BLEUE
Application.ScreenUpdating = False

'Les lignes 1 à 13 et 14 à 3402 sont visibles, les autres sont masquées
    UsedRange.Rows.Hidden = True
        Rows("1:13").Hidden = False
        Rows("14:3402").Hidden = False
        
'On se place sur la cellule A13
    Range("A13").Select
    
    Application.Goto ActiveCell, Scroll:=True
    
Application.ScreenUpdating = True
    
End Sub