Boucle sur Commandbutton

Bonjour le forum
voilà j'ai 27 commandbutton de A a Z plus 1 pour la totalité de ma feuille
puis une mise a jour de ma listbox avec ce code: (affichage alpha suivant le nom)

Private Sub CommandButton4_Click()
ListBox1.Clear
Dim j, c As Integer
Dim cel As Range
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = '25;70;50;0'
j = 0
For Each cel In Sheets('332').Range('B3:B' & Range('B65536').End(xlUp).Row)
If Left(cel, 1) = 'A' Then
c = cel.Row
ListBox1.AddItem Cells(c, 1)
ListBox1.List(j, 0) = Cells(c, 1)
ListBox1.List(j, 1) = Cells(c, 2)
ListBox1.List(j, 2) = Cells(c, 3)
ListBox1.List(j, 3) = c
j = j + 1
End If
Next
End Sub

Y aurait il une façon de boucler suivant la valeur de mon bouton plutot de de recopier 28 fois la procédure 1 avec A puis B puis C ... jusque Z
merci a vous