Public irow%, icol%, ladate, jour$, mois$
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")
jour = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche")(Weekday(ladate, vbTuesday)) & " " & .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ériqueladate = DateSerial(.[A3], Application.RoundUp((irow - 7) / 3, 0), .Cells(6, icol)) 'date reconstituée
End With
With UserForm1
.ComboBox1 = jour & " " & mois 'prend la jour et le mois au format jjjj jj mmmm
.TextBox_Année = Sheets("Année").[A3].Value
.Show 'afficher userform
End With
End If
End Sub