Macro de dépouillement de Formulaire Web

Bonjour,
j'ai reçois la réponse à mon formulaire web sous cet forme:

The following form contents were entered on 22nd Jun 11
Date = 22 Jun 11 18:24:32
resulturl =*Ce lien n'existe plus
subject = Formulaire_BonDeCommande
EventName3 = Yes
EventName1 = Yes
Total =*
Nom� =*
T�l�phone =*
E-mail =*
Adresse =*
Sous-total =*
Sous-total =*
Sous-total = 4
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total = 3
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total = 5
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total = 12

et je souhaite réaliser une macro permettant de supprimer les lignes en Rouge, et de transposer les autres données sur la feuille 2 afin d'imprimer une page clair. ce formulaire doit évidemment pouvoir être réutilisé a chaque fois que je reçois un formulaire.

pour le moment ma macro c'est :

Sub Macro2()
'
' Macro2 Macro
'
Dim der As Long
Dim i As Long
der = Range("A65536").End(xlUp).Row
For i = der To 1 Step -1
If Range("A" & i) = "EventName1 = Yes" Or Range("A" & i) = "EventName2 = Yes" Or Range("A" & i) = "EventName3 = Yes" Or Range("A" & i) = "EventName4 = Yes" Then Range("A" & i).Delete
Next i
'
Cells.Replace What:="Sous-total", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'
Cells.Replace What:="Nom? = ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'
Cells.Replace What:="T?l?phone = ", Replacement:="O", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End Sub

le problème c'est que les cellules de la feuille 2 même fixé évolue en même temps que la suppression des lignes mise en rouge.

Comment faire pour que les formules (=Feuil1!$A$6) n’évolue pas quand je supprime les lignes avec la macro.

Merci d'avance pour votre aide. j’espère avoir été clair.