Fusion de VBA

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("I4:AE4,I14:AE14")) Is Nothing Then

With Target.Interior
If .Pattern = xlUp Then
.Pattern = xlNone
Else
.PatternColorIndex = 44
.Pattern = xlUp
End If
End With

End If
If Not Application.Intersect(Target, Range("J6:L6")) Is Nothing Then
With Target
If .Interior.ColorIndex = 48 Then
.Interior.ColorIndex = xlNone
Else
.Interior.ColorIndex = 48
End If
End With
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Target.Interior
    If Not Intersect(Target, Range("I4:AE4,I14:AE14")) Is Nothing Then
        If .Pattern = xlUp Then
            .Pattern = xlNone
        Else
            .PatternColorIndex = 44
            .Pattern = xlUp
        End If
    ElseIf Not Intersect(Target, Range("J6:L6")) Is Nothing Then
        If .ColorIndex = 48 Then
            .ColorIndex = xlNone
        Else
            .ColorIndex = 48
        End If
    End If
End With
End Sub