Private Sub ComboBox1_Click()
On Error Resume Next
Dim Feuille As String
Feuille = ComboBox1.Value
Worksheets(Feuille).Select
If ActiveSheet.Name <> "Saisie" Then Range("G17,P17,Y17,AH17,AQ17,AZ17,BI17,BR17,CA17,CJ17,CS17,DB17,DK17,DT17,EC17,EL17,EU17,FD17,FM17,FV17") = Date
End Sub