Couleur pour tout control d'une Userform

Sub CouleurControls()
For Each c In ThisWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls
c.BackColor = FFC0C0& 'pas terrible comme couleur...
Next
End Sub

Sub CouleurControls()
Dim a, i As Byte, c As Object
a = Array("Userform1", "UserForm2", "UserForm3")
For i = 0 To UBound(a)
  For Each c In ThisWorkbook.VBProject.VBComponents(a(i)).Designer.Controls
    c.BackColor = FFC0C0& 'pas terrible comme couleur...
  Next
Next
End Sub

Sub CouleurControls()
Dim a, i As Byte, c As Object
a = Array("Classeur1.xlsm", "Classeur2.xlsm", "Classeur3.xlsm")
For i = 0 To UBound(a)
  For Each c In Workbooks(a(i)).VBProject.VBComponents("UserForm1").Designer.Controls
    c.BackColor = FFC0C0& 'pas terrible comme couleur...
  Next
Next
End Sub

For i = 1 to 5 then
userform(i)
blabla etc...
next i

Dim i As Byte, c As Object
For i = 0 To UserForms.Count - 1
  For Each c In ThisWorkbook.VBProject.VBComponents(UserForms(i).Name).Designer.Controls
    c.BackColor = FFC0C0& 'pas terrible comme couleur...
  Next
Next

Sub CouleurControls()
Dim i As Integer, c As Object
On Error Resume Next
For i = 0 To 100 'adapter si plus de 100 feuilles dans VBAProject
  For Each c In ThisWorkbook.VBProject.VBComponents(i).Designer.Controls
    c.BackColor = FFC0C0& 'pas terrible comme couleur...
  Next
Next
End Sub