desole de ma question con, je super debute
ca peux marcher ca :
Private Sub Workbook_Open()
Sub Message()
Dim Retour As String
Retour = InputBox("Texte à afficher dans la cellule A1 ? ", "Titre de la fenêtre", "Texte par défaut", 100, 100)
Range("A1" ) = Retour
End Sub
End Sub
Message édité par c3_exodusss le 17-09-2007 à 22:48:23