Double VBA dans la même feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Coll As New Collection, Start As Single, I As Long, Cel As Range
If Me.[C6].Value >= 100 Then Coll.Add Me.[C6]
If Me.[J6].Value >= 200 Then Coll.Add Me.[J6]
If Coll.Count = 0 Then Exit Sub
Start = Timer
For I = 1 To 4   'Est égal aux nombre de clignotement
   For Each Cel In Coll
      Cel.Font.ColorIndex = 6   'couleur jaune
      Cel.Interior.ColorIndex = 3   'Couleur rouge
      Next Cel
   Do Until Timer > Start + 0.12: DoEvents: Loop: Start = Timer
   For Each Cel In Coll
      Cel.Font.ColorIndex = 1
      Cel.Interior.ColorIndex = xlNone
      Next Cel
   Do Until Timer > Start + 0.12: DoEvents: Loop: Start = Timer
   Next I
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Byte
Dim Start As Variant
Dim i As Integer
Dim Plg As Range
    Select Case ([C6] >= 100) + 2 * ([J6] >= 200)
        Case -1: Set Plg = [C6]
        Case -2: Set Plg = [J6]
        Case -3: Set Plg = Union([C6], [J6])
    End Select
    If Not Plg Is Nothing Then
        For i = 1 To 4   'Est égal aux nombre de clignotement
            Plg.Font.ColorIndex = 6   'couleur jaune
            Plg.Interior.ColorIndex = 3   'Couleur rouge
            For n = 1 To 10
                Start = Timer
                Do While Timer < Start + 1 / 100  'Est égal  à la rapidité du clignotement
                Loop
                If n Mod 5 = 0 Then
                    Plg.Interior.ColorIndex = xlNone  'Cells(1, 1) correspont à A1 - (K1 est 1, 11)
                    Plg.Font.ColorIndex = 1
                End If
            Next n
        Next i
    End If
End Sub