Private Sub Worksheet_beforedoubleclick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B8:AF42")) Is Nothing Then '<<< ADAPTER REFERENCE ZONE DOUBLE CLIC
Cancel = True
irow = Target.Row 'ligne de la cellule double cliquée
icol = Target.Column 'colonne double clic
With Sheets("Année")
ladate = DateSerial(.[A3], Application.RoundUp((irow - 7) / 3, 0), .Cells(6, icol)) 'date reconstituée
jour = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche")(Weekday(ladate, vbMonday) - 1) & " " & .Cells(6, icol) 'jour converti en français (format JJJJ JJ) à partir de la valeur numérique du jour
mois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")(Int((irow - 7) / 3)) 'mois converti en français à partir du mois numérique
End With
With Formulaire
With .DateSelect
.Caption = jour & " " & mois 'prend la jour et le mois au format jjjj jj mmmm
.Tag = ladate 'Ici
End With
.DateSelect_Année = Year(ladate) 'Sheets("Année").[A3].Value
.Show 'afficher userform
End With
End If
End Sub