[Hervé]

Bonjour sam, wilfried, le forum

Un exemple de syntaxe possible, je te laisse le soin de vérifier les correspondances chiffres/lettres :

dans cette macro, 2 =B, 3 = C

Sub Bouton50_QuandClic()
Dim i AsByte
Dim j AsByte

For i = 5 To 96
    For j = 48 To Cells(65536, i).End(xlUp).Row
        SelectCase Cells(j, i)
            Case 2: Cells(j, i) = 'B'
            Case 3: Cells(j, i) = 'C'
            'etc....
        EndSelect
    Next j
Next i
       
           
EndSub

salut