Sub test()
Dim mabox As String
Dim tache As String
tps = Range("A1").Value
mabox = InputBox("Quelle est la répartition du temps pour la tâche " & tache & " pour l'acteur " & ThisWorkbook.Name, "Répartition temps de travail")
End Sub
code]
Bien à toi,
Antoine