Private Sub Modif_Date()
Dim Annee As Integer, Semaine As Integer
Annee = Me.ComboBox3.Value
Semaine = Me.ComboBox4.ListIndex + 1
Me.Range("B3").Value = 7 * Semaine + DateSerial(Annee, 1, 3) - Weekday(DateSerial(Annee, 1, 3)) - 6
Graphe_Planning
End Sub