Dim reponse as String
reponse = InputBox("Date de réception de l'analyse au format JJ-MM-AA ?")
'Si la réponse peut-être interprétée comme une date alors on la conserve
If IsDate(Reponse) then Range("D11")=cDate(Reponse)
'Réinitialiser reponse
Reponse=""
Reponse = InputBox("Produit ?")
If reponse<>"" Then Range("D15")= reponse
etc