'Dans le Module
Public ValeurPublique, Valsaisie As Long
'Si c'est: "Bijour Missioux Dammes. Acht'i moi des string si vous plé"
'Public ValeurPublique, Valsaisie As String
Private Sub Workbook_Open()
Valsaisie = Application.InputBox("Saissez votre valeur")
With Sheets("Feuil1")
.Cells(1, 1) = Valsaisie
End With
ValeurPublique = Valsaisie
MsgBox ValeurPublique
End Sub