Salut Didier,
crée un bouton qui commande la macro suivante:
Sub EntréeTexte()
donnée = InputBox("sans hésiter", "saisissez le texte")
ActiveCell.Value = donnée
End Sub
ainsi la cellule active de ton document prendra la valeur saisie dans l'inputbox
Voir annexe
bonne soirée Jean-Claude