Bonsoir Pompom, le forum,
Peut etre comme ca ?
Sub gestionInputBox()
Dim Reponse As String
Reponse = InputBox('C'est vrai ou faux ?', 'XXX')
If Reponse = '' Then Exit Sub
If Reponse = 'vrai' Then Range('A2') = Reponse
If Reponse = 'faux' Then Range('B2') = Reponse
End Sub
Bien entendu c'est a adapter a tes besoins...
Au fait, pas besoin de poster deux fois pour poser une meme question...
Bonne soiree
Olivier