Sub nom_mois()
Dim nom_mois As Integer
Dim mois As String
Dim premier As Integer
Dim jour As Integer
Dim coLonne As Integer
Dim année As Integer
mois = InputBox("Le numéro du mois ?", "Mois")
année = InputBox("Saisie de l'Année ?", "Année")
If mois = 1 Then
mois = "Calendrier" & " " & "Janvier" & " " & année
ElseIf mois = 2 Then
mois = "Calendrier" & " " & "Février" & " " & année
ElseIf mois = 3 Then
mois = "Calendrier" & " " & "Mars" & " " & année
ElseIf mois = 4 Then
mois = "Calendrier" & " " & "Avril" & " " & année
ElseIf mois = 5 Then
mois = "Calendrier" & " " & "Mai" & " " & année
ElseIf mois = 6 Then
mois = "Calendrier" & " " & "Juin" & " " & année
ElseIf mois = 7 Then
mois = "Calendrier" & " " & "Juillet" & " " & année
'etc
End If
Range("c2").Value = mois
Titre = mois
Calendrier2
End Sub