Sub nouveauplanning()
Dim retour As String
Dim retour2 As String
retour = InputBox("Entrez la date pour laquelle vous souhaitez générer un planning avec la syntaxe JJ/MM/AAAA", "", "", 100, 100)
retour2 = InputBox("Entrez le nom du moi en toutes lettres suivi de l'année (ex : septembre 2008)", "", "", 100, 100)
Sheets.Add(after:=Sheets(Sheets.Count)).Name = retour2
End Sub