Sub NbJoursMois()
'Fonction qui détermine le nombre de jours dans chaque mois
Dim i As Integer
Dim DayList(31) As Integer
For i = 0 To 30
    DayList(i) = i + 1
Next i
If (EntreeDonnees.Annees.Value Mod 4) <> 0 Or (EntreeDonnees.Annees.Value Mod 100) = 0 Then
    If EntreeDonnees.Mois.Value = "Février" Then
        For i = 0 To 27
            With EntreeDonnees.Jours
                .AddItem DayList(i)
            End With
        Next i
    ElseIf EntreeDonnees.Mois.Value = "Avril" Or EntreeDonnees.Mois.Value = "Juin" Or EntreeDonnees.Mois.Value = "Septembre" Or EntreeDonnees.Mois.Value = "Novembre" Then
        For i = 0 To 29
            With EntreeDonnees.Jours
                .AddItem DayList(i)
            End With
        Next i
    Else
        For i = 0 To 30
            With EntreeDonnees.Jours
                .AddItem DayList(i)
            End With
        Next i
    End If
'Partie qui tient compte des années bissextiles
Else
    If EntreeDonnees.Mois.Value = "Février" Then
        For i = 0 To 28
            With EntreeDonnees.Jours
                .AddItem DayList(i)
            End With
        Next i
    ElseIf EntreeDonnees.Mois.Value = "Avril" Or EntreeDonnees.Mois.Value = "Juin" Or EntreeDonnees.Mois.Value = "Septembre" Or EntreeDonnees.Mois.Value = "Novembre" Then
        For i = 0 To 29
            With EntreeDonnees.Jours
                .AddItem DayList(i)
            End With
        Next i
    Else
        For i = 0 To 30
            With EntreeDonnees.Jours
                .AddItem DayList(i)
            End With
        Next i
    End If
End If
End Sub