Atribuer une macro à une cellule

Bonjour,

J'ai inséré ce code VBA ci-dessous, C'est nickel, mais je voudrais attribuer cette macro à une seule cellule, puis je l'active avec un bouton de commande. Comment faire ?

Public Sub insere_image()
	Dim ficimg As Variant
	ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image") ' choix nom du fichier
	ActiveSheet.Pictures.Insert(ficimg).Select ' insertion
	With Selection.ShapeRange
		.LockAspectRatio = False ' proportions d'origine lorsque vous la redimensionnez
		.Top = ActiveCell.Top ' haut de la cellule
		.Left = ActiveCell.Left ' gauche de la cellule
		.Height = ActiveCell.RowHeight ' hauteur de la cellule
		.Width = ActiveCell.Width ' largeur de la cellule
	End With
	With Selection
		.PrintObject = True ' l'objet est imprimé en même temps que le document
		.Placement = xlMoveAndSize ' manière dont l'objet est lié aux cellules
	End With
End Sub

Autre question concernant une macro dans une feuille protégée.

La macro ci-dessus fonctionne quand la feuille n'est pas protégée, mais plus quand je la protège. Quelle est la solution ?

Bonne soirée
Michel