Private Sub GrBoutons_Click()
Selection.Interior.Color = GrBoutons.BackColor
Selection.Font.Color = GrBoutons.ForeColor
A = GrBoutons.Caption
For i = 1 To Len(A)
If Asc(Mid(A, i, 1)) > 47 And Asc(Mid(A, i, 1)) < 58 Then GoTo suite
If Asc(Mid(A, i, 1)) = 32 Then GoTo suite
d = d & Mid(A, i, 1)
suite:
Next i
Selection.Value = d 'GrBoutons.Caption
ActiveCell.Offset(0, 1).Select
End Sub