Un tableau pour plusieur personne dans 1 feuile

bonjour a tous et a toutes,

j'ai editer une formule (voir ci desous)pour pouvoir avec un seul tableau faire plusieur personne avec un bouton toupi.cela fonctionne mai me prend que 12 nom alor que qu'il men faudrais plus ,je ne c'est pas ou est l'erreur j'espere que vous pouraient medait

Private Sub SpinButton1_Change()
NOM = Range("C1")
If NOM = "" Then Exit Sub
If NOM > 100 Then Exit Sub
Range("B1") = Choose(NOM, "AA", "BB", "CC", "DD", "EE", "FF", "GG", "HH", "II", "JJ", "KK", "LL", "MM", "NN", "OO", "PP", "QQ", "RR", "SS", "TT", "UU", "VV", "WW")
Range("B11").Select
col = Choose(NOM, 33, 34, 35, 36, 37, 38, 39, 40, 24, 19, 42, 44, 20, 34, 35, 36, 37, 38, 39, 40, 24, 19, 42, 44, 33, 34, 35, 36, 37, 24)
Selection.Interior.ColorIndex = col
Range("D24").Select
Selection.Interior.ColorIndex = col
Range("A323").Select
Selection.ClearContents

With Worksheets("FRAIS").Range("E27:E3000")
Set ladate = .Find(NOM * 1.1, LookIn:=xlValues)
If Not ladate Is Nothing Then
FirstADdress = ladate.Address
Do
a = a + 1
Cells(a + 2, 1) = ladate.Offset(0, -4)
Cells(a + 2, 2) = ladate.Offset(0, -3)
Cells(a + 2, 3) = ladate.Offset(0, -2)
Cells(a + 2, 4) = ladate.Offset(0, -1)
Set ladate = .FindNext(ladate)
Loop While Not ladate Is Nothing And ladate.Address <> FirstADdress
End If
End With

On Error GoTo bugg
Range("D24") = Cells(23, 4) + Cells(22, 4) + Cells(21, 4) + Cells(20, 4) + Cells(19, 4) + Cells(18, 8) + Cells(17, 4) + Cells(16, 4) + Cells(15, 4) + Cells(14, 4) + Cells(13, 4) + Cells(12, 4) + Cells(11, 8) + Cells(10, 4) + Cells(9, 4) + Cells(8, 4) + Cells(7, 8) + Cells(6, 8) + Cells(5, 8) + Cells(4, 4) + Cells(3, 4)
Range("D1").Select

Exit Sub
bugg:
Range("D1").Select
MsgBox ("Attention! à corriger sur le listing ci-dessous : il manque un montant sur le Nom : " & Range("B1"))
End Sub

merci a tous toute ,