Problème avec un code Vba en Excel

Bonjour à tous,

Le code ci-dessous est censé remplir les TextBoxs selon le n° affiché dans la Combo, données qui se trouvent sur la même ligne que le numéro. Ce dernier se trouve dans la colonne A de la feuille "Général".

Donc que je choisi un numéro, rien ne se passe et je ne comprends pas pourquoi. j'utilise déjà ce code dans une autre application, j'ai fait des comparaisons, mais je ne vois aucune erreur.

Chaque TxtBox est nommée de 1 à 10 en commençant par la lettre T (ex. T1, T2, T3, etc)

Pouvez-vous m'apporter votre éclairage s'il vous plait ?
Merci par avance

Code :

Private Sub CbNum_Change()
Dim Nome As Variant
Dim Nam As Variant
Dim z As Byte
For z = 1 To 10: Controls("T" & (z)) = "": Next z
Nam = 1
For Each Nome In Sheets("Général").Range("A4:A" & Range("A" & Rows.Count).End(xlUp).Row)
If Nome = CbNum.Value Then
Controls("T" & Nam).Value = Nome.Offset(0, 1)
Controls("T" & Nam + 1).Value = Nome.Offset(0, 2)
Controls("T" & Nam + 2).Value = Nome.Offset(0, 3)
Controls("T" & Nam + 3).Value = Nome.Offset(0, 4)
Controls("T" & Nam + 4).Value = Nome.Offset(0, 5)
Controls("T" & Nam + 5).Value = Nome.Offset(0, 6)
Controls("T" & Nam + 6).Value = Nome.Offset(0, 7)
Controls("T" & Nam + 7).Value = Nome.Offset(0, 11)
Controls("T" & Nam + 8).Value = Nome.Offset(0, 8)
Controls("T" & Nam + 9).Value = Nome.Offset(0, 9)
End If
Next
T8 = Format(T8, "0")
T9 = Format(T9, "0.00")
T10 = Format(T10, "0.00")

End Sub