Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not IsNumeric(Sh.Name) Or Target.Address <> "$C$3" Then Exit Sub
Cancel = True
Target = Application.WorkDay(DateSerial(Year(Date), Sh.Name, 0), 1, [Fériés]) '1er jour ouvré
Target(2).Resize(23) = "=WORKDAY(R[-1]C,1,Fériés)" 'SERIE.JOUR.OUVRE
Target(1, 0).Resize(24) = "=CHOOSE(WEEKDAY(RC[1],2),""L"",""Ma"",""Me"",""J"",""V"")"
Target(1, -1).Resize(24) = "=IF(ISOWEEKNUM(RC[2])<>ISOWEEKNUM(R[-1]C[2]),ISOWEEKNUM(RC[2]),"""")"
End Sub