Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim P As Range, dat As Range, coldeb%, colfin%, Semaine As Range
Set P = [A1].CurrentRegion
Set P = P.Offset(2).Resize(P.Rows.Count - 2)
If Intersect(Target, P) Is Nothing Or Target.Column = 1 Then Exit Sub
Cancel = True
Set dat = Target(3 - Target.Row, 1).MergeArea(1)
coldeb = dat.Column + 2 - 2 * Weekday(dat, 2)
colfin = coldeb + 9
If coldeb < 2 Then coldeb = 2
If colfin > P.Columns(P.Columns.Count).Column Then colfin = P.Columns(P.Columns.Count).Column
Set Semaine = Intersect(Range(Columns(coldeb), Columns(colfin)), P)
Semaine.Select 'facultatif, en VBA on ne sélectionne généralement pas...
End Sub