Salut Victor, salut le forum,
Victor je n'ai pas compris ce que tu entendais par "plusieurs fois, jusqu'à la fin". Ect-ce que cela signifie que tu veux répéter les deux boites pour chaque feuille du fichier ?
En attendant d'en savoir plus, voici ta macro modifiée pour un affichage de la deuxième fenêtre (InputBox) qui place la valeur éditée en C2.
Private Sub Workbook_Open()
Dim Titre As String, Message1 As String, Message2 As String 'déclare les variables
Dim boite1 As String, boite2 As String 'déclare les variables
Titre = "Entrez vos données" ' Définit le titre.
Message1 = "Votre nom :" ' Définit le message.
' Affiche la boite d'entrée 1
boite1 = InputBox(Message1, Titre)
'ici "Chr(10)" est un saut de ligne et "Now" indique le jour et l'heure
Worksheets("Feuil1").Range("B2") = boite1 & Chr(10) & Now
Message2 = "Le nombre de points :" 'définit le Message2
' Affiche la boite d'entrée 2
boite2 = InputBox(Message2, Titre)
'inscrit le resultat de la boite d'entrée dans C2
Worksheets("Feuil1").Range("C2") = boite2
À plus,
Robert