Un fichier vérolé...

Bonsoir,
Je ne sais plus que faire... voici mon problème. J'ai écrit en VBA un UserForm (environ 1000 lignes de codes) qui tournait sur différentes machines sous XP, Win7 avec Excel 97, 2003 et 2007. "tournait" car il est maintenant atteint par le virus MW97. C'est le seul parmi pas mal d'applications sous Excel+Vba que j'ai développées.
J'ai supprimé tout le UF, puis repris peu à peu toutes le macros, à chaque fois ré-enregistré le fichier et testé avec l'antivirus. J'ai fini par déterminer une macro qui, présente, infeste le tableau, absente pas de virus.
J'ai écrit la macro directement (avec l'éditeur Vba) en espérant éliminer cette cochonnerie : rien à faire. Je vous donne le code, y-a-t-il une ligne qui pourrait déclencher cette alerte ?

Private Sub Nouvel_click()
If Modification And Not Simultane Then
CasSuite = MsgBox("Abandon des modifications en cours ?", vbYesNo, "Abandon des modifications ")
If CasSuite = 7 Then Exit Sub
Modification = False
End If

Simultane = False
EnrSimul.Value = Simultane
Controls("Enregistre").Enabled = True

Application.Goto Reference:=TTableau
FlagTri(1) = True

Selection.Sort key1:=Cells(2, 1), order1:=xlAscending, Header:=xlYes, ordercustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

Indexc = Cells(2, 1).Value
Indexb = 0
For Index = 3 To MaxFiche + 1
If Cells(Index, 1).Value > Indexc + 1 Then
Indexb = Indexc + 1
Exit For
Else
Indexc = Cells(Index, 1).Value
End If
Next Index

If Indexb = 0 Then Indexc = Cells(MaxFiche + 1, 1).Value
Indexc = Indexc + 1
MaxFiche = MaxFiche + 1
Controls("AvantApres").Max = MaxFiche + 1
Set TTableau = Range("$A$1:$AS$" & CStr(MaxFiche + 2))
Cells(MaxFiche + 1, 1).Value = Indexc
For Index = 12 To 17
Cells(MaxFiche + 1, Index) = False
Next Index
For Index = 28 To 44
Cells(MaxFiche + 1, Index) = False
Next Index

AvantApres.Value = MaxFiche + 1
End Sub

si vous pouviez m'aider !
merci d'avance
Sanarienavoir