Liste déroulante

Bonjour à tous

Je suis débutante sous visual basic. J'ai donc grand besoin d'aide...Voilà je voudrais insérer une liste de choix à ma inputbox mais je ne sais pas comment faire. Auriez-vous une solution ???

Voici la macro que j'ai écrit jusqu'à présent :

Sub INTERFACE()
Range("a15").Select

debut:
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Activate
Wend

saisie:
ActiveCell.Value = Application.InputBox(prompt:="Date ?", Title:="Saisie de la date", Left:=100, Top:=300, Type:=1)
ActiveCell.Offset(0, 1) = Application.InputBox(prompt:="Nom du fournisseur ?", Title:="Saisie du fournisseur", Left:=100, Top:=300, Type:=2)
ActiveCell.Offset(0, 3) = Application.InputBox(prompt:="Description brève de l'achat", Title:="Saisie du descriptif de l'achat", Left:=100, Top:=300, Type:=2)
ActiveCell.Offset(0, 6) = Application.InputBox(prompt:="Montant de l'achat ?", Title:="Saisie du montant de l'achat", Left:=100, Top:=300, Type:=1)

continu = MsgBox("Autre achat ?", vbYesNo)
If continu = vbYes Then
GoTo debut
End If

End Sub
Merci d'avance,
Bien cordialement