Le nombre de "couleurs" est censés être égal au nombre de boutons dans le UserForm.
Le bouton Efface étant compté comme une couleur...
Ce nombre est défini dans le code du UserForm :
Dim Btn(1 To 11) As New ClasseBoutons
Private Sub UserForm_Initialize()
For b = 1 To 11: Set Btn(b).GrBoutons = Me("bouton" & b): Next b
For i = 1 To Application.CountA(Range("mescouleurs"))
Me("bouton" & i).Caption = Range("mescouleurs")(i).Value
Me("bouton" & i).BackColor = Range("mescouleurs")(i).Interior.Color
Me("bouton" & i).ControlTipText = Range("MotifsCongés")(i).Value
Next
Me("bouton" & i).Caption = "Efface"
For c = i + 1 To 11: Me("bouton" & c).Visible = False: Next
Me.Width = 37 * i + 5
End Sub
A+