Renommer des checkBox sous VBA (en continu)

Bonjour,

Je cherche à renommer des checkbox sous VBA mais ça ne marche pas.
Je n'arrive pas à trouver l'aide adequat. J'ai trouver quelque chose dans LA FAQ VBA mais je n'ai rien compris
(ce n'est pas faute d'avoir chercher, c'est que je suis vraiment pas fort )

Voici le code que je souhaite améliorer:

Sub test()
Dim p, i As Integer
p = 1
debut:
While p < 38
i = i + 1
ConstatAnomalie.Controls("CheckBox" & i).Name = "ChB" & p
On Error GoTo GestError
p = p + 1
Wend
GestError:
If Err.Number = -2147024809 Then
test = ""
GoTo debut
Else
MsgBox Err.Number & " " & Err.Description
GoTo fin
End If
fin:
End Sub

Voilà ce que j'ai trouver sous LA FAQ VBA:

--------------------------------------
'Procédure de création des CheckBoxs à placer dans l'UserForm.
'L'UserForm doit préalablement contenir un bouton nommé CommandButton1

Option Explicit

Private Sub CommandButton1_Click()
Dim Obj As Control
Dim Cl As Classe1
Dim i As Integer

Set Collect = New Collection

For i = 1 To 3 'boucle pour la création des CheckBox
Set Obj = Me.Controls.Add("forms.Checkbox.1")
With Obj
.Name = "moncheckbox" & i
.Object.Caption = "le texte" & i
.Left = 140
.Top = 30 * i + 10
.Width = 50
.Height = 20
End With

'ajout de l'objet dans la classe
Set Cl = New Classe1
Set Cl.ChkBx = Obj
Collect.Add Cl
Next i

End Sub
'--------------------------------------

Je me sens un peu nul, mais ça fait trois plombe que je suis dessus et que je n'avance pas.


Merci, encore

Configuration: Windows XP
Internet Explorer 6.0