concervé la formule et la mise en forme couleur

Bonjour,

J'ai dans une colonne la formule suivante :
=INDEX(Extraction!$A$1:$A$1000;EQUIV(E20;Extraction!$B$1:$B$1000;0))

qui me donne la recherche que je veux, mais je désire avoir en même temps la
mise en couleur que j'avais fait dans une feuille précédente.. voici la macro
:

Private Sub Worksheet_Change(ByVal zz As Range)
Application.ScreenUpdating = False

If Intersect(zz, [Versus]) Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
If IsNumeric(Application.Match(zz, [Valeurs], 0)) Then
Sheets("PARAM2").Range([Valeurs].Item(Application.Match(zz, [Valeurs],
0)).Address).Copy zz
Else 'choix d'un format par défaut
With zz.Font
.Name = "Verdana"
.Size = 8
.ColorIndex = xlAutomatic
End With
zz.Borders.LineStyle = xlNone
zz.Interior.ColorIndex = xlNone
End If
Application.EnableEvents = True
End Sub

Sub zz()
Application.EnableEvents = True
End Sub

Mais quand la macro s'éxécute le pert la formule dans la colonne et les mise
à jour ne se font pas.

Merci de votre aide.