Private Sub CommandButton1_Click()
Dim MyDate, suite1, suite2, suite3, suite4
Sheets('Blunet').Select
MyDate = DTPicker1.Value
Range('C2').Value = MyDate
Range('I2').Value = DatePart('ww', MyDate)
UserForm2.Label2.Caption = DatePart('ww', MyDate)
'Tu pourras ensuite copier les données dans la feuille Autorisations
' Cells(UserForm9!ComboBox8.ListIndex + 5, 5).Value = UserForm9!ComboBox8.Value
' Cells(UserForm9!ComboBox8.ListIndex + 7, 6).Value = UserForm9!TextBox1.Value
End Sub