With Application.CommandBars("cell").Controls.Add(msoControlButton) 'crée le bouton
.BeginGroup = True ' crée un groupe ici sert plus pour l'esthétique
.Caption = "Efface" 'intitulé du bouton
.FaceId = 47 ' l'icone du bouton rechercher les faceid sur internet
.OnAction = "Efface" 'action du bouton qui doit être dans un module
End With