bonjour le forum

je dispose de certains objet sur ma feuille que j'ai nommé "Rectangle" je voudrais masquer 16 d'entre eux j'ai met un code pour le faire mais malheureusement il masque tous et non pas 16.

voici le code :

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
19
20
21
22
23
24
25
26
27
Sub MasqueFormulaire()
Dim Sh As Shape
Dim Tableau() As String
Dim i As Integer
 On Error Resume Next
 
    'Boucle sur les formes de la feuille active
    For Each Sh In Feuil1.Shapes
        'Vérifie si le nom de la forme commence par "Rectangle".
        If Left(Sh.Name, 9) = "Rectangle" Then
            For i = 1 To 15
            'Redéfinit la taille du tableau et intègre le nom de la forme.
            ReDim Preserve Tableau(1 To i)
            Tableau(i) = Sh.Name
    Next
 
    'On sort si le tableau est vide.
    If i = 0 Then Exit Sub
 
    'Regroupe les formes dont le nom se trouve dans le tableau
    Set Sh = Feuil1.Shapes.Range(Tableau).Group
    'masquer les formes"
    Sh.Visible = msoFalse
    End If
    Next
 
End Sub
merci d'avance pour votre aide