Inputbox à l'ouverture du fichier

Bonjour,
1- ouvrez votre classeur,
2- Tapez ALT + F11 ---> une fenêtre Visual Basic s'affiche
3- Sur la gauche de cette fenêtre, double cliquez sur "This workbook"
4- Menu déroulant (fenêtre centrale) de gauche (général) choisir : WorkBook, menu déroulant de droite (déclarations) choisir : "Open"
5- 2 lignes de code s'affichent :

Private Sub Workbook_Open()

End Sub

6- entre ces deux lignes collez ce code pour obtenir :

Private Sub Workbook_Open()
Dim a As String
a = InputBox("Merci de saisir ici le contenu de la cellule D4", "Saisie")
Sheets("Feuil1").Range("D4") = a
End Sub

Merci à toi pijaku,

C t super bien expliqué et ca marche comme je le voulais
Merci beaucoup