Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B12:AF12")) Is Nothing Then
UserForm1.ComboBox_date.List = Application.Transpose(Sheets("Feuil1").Range("B12:AF12").Value)
Cancel = True
UserForm1.Show
Load UserForm1
End If
End Sub