XL 2010 anomalie VBA

Private Sub Worksheet_Calculate()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("B5:BI14").Columns
    c.Interior.Color = c.Cells(0, 1)
Next
For Each c In Range("B20:BJ29").Columns
    c.Interior.Color = c.Cells(0, 1)
Next
For Each c In Range("B35:BJ44").Columns
    c.Interior.Color = c.Cells(0, 1)
Next
For Each c In Range("B50:BK59").Columns
    c.Interior.Color = c.Cells(0, 1)
Next
For Each c In Range("B65:BJ74").Columns
    c.Interior.Color = c.Cells(0, 1)
Next
For Each c In Range("B80:BJ89").Columns
    c.Interior.Color = c.Cells(0, 1)
Next
For Each c In Range("B95:AF104").Columns
    c.Interior.Color = c.Cells(0, 1)
Next

Cells.FormatConditions.Delete
UsedRange.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
    Formula1:="=""CA"""
UsedRange.FormatConditions(1).Interior.ColorIndex = 43
UsedRange.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
    Formula1:="=""RTT"""
UsedRange.FormatConditions(2).Interior.ColorIndex = 23

End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Application.EnableEvents = False
Feuil2.Name = Feuil1.Range("C2").Value
Application.EnableEvents = True
End Sub