affichage en couleur des modifications dans feuille excel

[COLOR="DarkSlateGray"]Sub toto()
Dim f, p, q, tf As Boolean
   With Sheets(Me.Index + 1)
      Set p = .[A1]
      On Error Resume Next
      Set p = Union(p, .Cells.SpecialCells(xlCellTypeConstants))
      Set p = Union(p, .Cells.SpecialCells(xlCellTypeFormulas))
      On Error GoTo 0
      Set q = Me.[A1]
      On Error Resume Next
      Set q = Union(q, Me.Cells.SpecialCells(xlCellTypeConstants))
      Set q = Union(q, Me.Cells.SpecialCells(xlCellTypeFormulas))
      On Error GoTo 0
      Set p = Union(Me.Range(p.Address), Me.Range(q.Address))
      Set q = Nothing
      Me.Activate
      For Each f In p
         If f.Value <> .Range(f.Address).Value Then
            If tf Then Union(Selection, f).Select Else tf = True: f.Select
         End If
      Next f
      Set p = Nothing
   End With
End Sub[/COLOR]