Choix possibles dans une boîte de dialogue

[Fredrennes]

Hello à tous,

Voilà, j'ai cette ligne de code :

Private Sub Workbook_Open()
Range("A1").Value = InputBox("Entrer la date", "Suivi", "AAAAMM")
End Sub

Je voudrais faire apparaître dans ma boîte de dialogue une liste de choix : 200401, 200402, 200403 etc

Et ça....je ne sais pas faire.

Pouvez-vous m'aider svp ?

Merci bcp.

Bonne journée.

Cdlt
Fred