Sub RenommeTextBox()
Dim tablo, c As Control, n, i
tablo = Array("aa", "bb", "cc", "dd", "ee", "ff", "gg", "hh", "ii", "jj", "kk")
For Each c In ThisWorkbook.VBProject.VBComponents("Userform1").Designer.Controls
If c.Name Like "TextBox*" Then
n = Val(Mid(c.Name, 8, 4)) - 1 'numéro du nom - 1
i = Int(n / 100)
c.Name = tablo(i) & n - 100 * i + 1
End If
Next
End Sub