On peut aussi envoyer une valeur par défaut. Par exemple, Espace Insécable
Dim qs As Variant
qs = InputBox("ddd", , Chr(160))
If qs = Chr(160) Then
Il suffit après de traiter la suite.