Additionner cellules de couleur double clic

Bonjour,

Je souhaiterais savoir comment adapter ma macro pour additionner et soustraire les valeurs des cellules que je colore par un double clic
J'ai essayé cette macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Col As Integer
Dim Lig As Integer
Dim TotalSomme As Single 'Ou Currency

For Col = 4 To 17
For Lig = 5 To 30
With Cells(Lig, Col)
If .Interior.ColorIndex = 40 And IsNumeric(.Value) Then
TotalSomme = TotalSomme + .Value
End If
End With
Next Lig
Next Col

Range("D4").Value = TotalSomme


If Not Application.Intersect(Target, Range("A1:BW100")) Is Nothing Then
If ActiveCell.Interior.ColorIndex = 40 Then
ActiveCell.Interior.ColorIndex = xlNone
Else
ActiveCell.Interior.ColorIndex = 40
End If
End If
Cancel = True
End Sub

Le problème est qu'il y a toujours un décalage dans l'addition

Est ce que quelqu'un aurait une idée
Merci