Private Bouton_Valideur() As New Bouton_Validation
Private Sub Workbook_Open()
Dim Bouton As Shape
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Sheets
For Each Bouton In Feuille.Shapes
Cptr = Cptr + 1
End If
Next
Next
ReDim Bouton_Valideur(Cptr)
Cptr = 1
For Each Feuille In ThisWorkbook.Sheets
For Each Bouton In Feuille.Shapes
Set Bouton_Valideur(Cptr).MonBouton = Bouton
Cptr = Cptr + 1
End If
Next
Next
End Sub