Somme si la selection dans une plage donné vb

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
Dim cel As Range, Total As Single  
    If Target.Count > 1 Then Exit Sub  
    If Not Intersect(Target, [D29:G62]) Is Nothing Then  
        If Target.Interior.Color = vbRed Then  
            Target.Interior.ColorIndex = -4142  
        Else  
            Target.Interior.Color = vbRed  
        End If  
        Total = 0  
        For Each cel In [D29:G62]  
            If cel.Interior.Color = vbRed Then  
                Total = Total + cel.Value  
            End If  
        Next cel  
        [A1] = Total  
    End If  
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
Dim cel As Range, S() As String  
    If Not Intersect(Target, [D29:G62]) Is Nothing Then  
        If Target.Count < 8 Then Exit Sub 'Y a moins de 8 cellules sélectionnées  
        S = Split(Target.Address, ":")  
        If Target.Column <> 4 Or Range(S(1)).Column <> 7 Then Exit Sub 'pour avoir 4 colonnes ça doit commencer en D  et finir en G
        'ICI les conditions sont remplies  
        'et si tout le reste c'est la somme de ces cellules le plus simple c'est  
        [A1] = 0 'pour exemple en A1  
        For Each cel In Target  
            [A1] = [A1] + cel  
        Next cel  
    End If  
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
    If Target.Column <> 4 Or Target.Columns.Count <> 4 Then Exit Sub  
    If Target.Row < 29 Or Target.Rows.Count < 2 Or Target.Row + Target.Rows.Count - 1 > 62 Then Exit Sub  
    ' ton programme  
    [A28] = Application.Sum(Target)
End Sub 

Sub sumSel() 
    If Selection.Column <> 4 Or Selection.Columns.Count <> 4 Then Exit Sub   
    If Selection.Row < 29 Or Selection.Rows.Count < 2 Or Selection.Row + Selection.Rows.Count - 1 > 62 Then Exit Sub   
    ' ton programme   
    [A28] = Application.Sum(Selection) 
End Sub