sélection de plages

If Intersect(Target, Range("F15:F31,H15:H31,J15:JI31,L15:L31")) Is Nothing Then Exit Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pl As Range
Dim x As Integer

Set pl = Range("F15:F31")
For x = 8 To 525 Step 2
    Set pl = Application.Union(pl, Range(Cells(15, x), Cells(31, x)))
Next x
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub
Cancel = True
Target.Interior.ColorIndex = Cells(Target.Row, 1).Interior.ColorIndex
End Sub

Sub SelectionPAIRouIMPAIR(Plage$, PARITE As Byte)
Dim p As Range, i
For i = 1 To Range(Plage).Columns.Count
If Cells(1, i).Column Mod 2 = PARITE Then
    If p Is Nothing Then
        Set p = Cells(1, i)
    Else
        Set p = Union(p, Cells(1, i))
    End If
End If
Next
If Not p Is Nothing Then
p.EntireColumn.Select
End If
End Sub

Sub TestIMPAIR()
'SelectionPAIRouIMPAIR "A1:P1", 1 'test ok
SelectionPAIRouIMPAIR "F1:TF1", 1 ' à tester sur ton fichier
End Sub

Sub TestPAIR()
'SelectionPAIRouIMPAIR "A1:P1", 0 ' test ok
SelectionPAIRouIMPAIR "F1:TF1", 0 ' à tester sur ton fichier
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cel As Range
Cancel = True 'annule le mode édition lié ua double-clic
'récupère la coleur de la cellule en collone A et la place dans la cellule double-cliquée
Target.Interior.ColorIndex = IIf(Target.Value = "", Cells(Target.Row, 1).Interior.ColorIndex, xlNone)
Target.Value = IIf(Target.Value = "", 1, "")
For Each cel In Application.Intersect(Columns(2), ActiveSheet.UsedRange)
    cel.Value = IIf(Application.WorksheetFunction.Sum(Range(Cells(cel.Row, 3), Cells(cel.Row, Application.Columns.Count))) = 0, _
        "", Application.WorksheetFunction.Sum(Range(Cells(cel.Row, 3), Cells(cel.Row, Application.Columns.Count))))
Next cel
End Sub