Renommer en masse Label dans 5 Frames

Private Sub UserForm_Initialize()
Dim f As Control, c As Control, i As Integer
For Each c In Me.Controls
    If TypeOf c Is MSForms.Frame Then
        i = 1
        For Each l In c.Controls
            If TypeOf l Is MSForms.Label Then l.Name = Mid(c.Name, 6, 1) & Label & i: _
                i = i + 1
        Next l
    End If
Next c
End Sub

Private Sub UserForm_Initialize()
Dim f As Control, c As Control, l As Control, i As Integer
For Each c In Me.Controls
    If TypeOf c Is MSForms.Frame Then
        i = 1
        For Each l In c.Controls
            If TypeOf l Is MSForms.Label Then l.Caption = Mid(c.Name, 6, 1) & "label" & i: _
                i = i + 1
        Next l
    End If
Next c
End Sub