Here's my little problem

I have a workbook with a "personalizede toolbar
On this toolbar, I've got n buttons (n=A to I)
With theses buttons I've got theses macros

Public Sub prms() 
Dim ce As Range, rg As Range
End Sud
 
Sub VCellA()
prms
Set rg=Application.Selection
For Each ce In rg
ce.Value="A"
Next ce
End Sub
I've copy VcellA() code for each letters (A to I)
So I've got the "module"
Sub VCellA(), Sub VCellB() ... Sub VCellI()

Is there a way to have only one macro who indentify wich button I click on
and adjust the right letter value in the selected cells?

Thank for your help