Remplacer automatiquement

Oui excel 2007 pardon

[code]
Sub RemplacerListeDeMots()
'-------------------------------------------------
'Cette macro a pour rôle de remplacer les mots d'un
' document par une liste de
'mots se trouvant dans une table à deux colonnes
'------------------------------------------------

'Affectation de la table
Set oTbl = Feuil3
'Boucle sur les cellules de la table
For Each oRow In oTbl.Rows
'Sélection du document cible
Feuil4.Select
Feuil5.Select
Feuil6.Select
Selection.HomeKey unit:=wdStory
With Selection.Find
.ClearFormatting
.Forward = True
.Text = Nexttext(oRow.Cells(1).Range.Text) 'utilisation de notre fonction
.Replacement.Text = NetText(oRow.Cells(2).Range.Text) 'utilisation de notre fonction
.Replacement.ClearFormatting
.Execute Replace:=wdReplaceAll
End With

Next oRow
'Libération des objets
Set oDlg = Nothing
Set oTbl = Nothing


End Sub

[code]

Voila ce que j'ai commencer a faire mais ca ne fonctionne pas...

La tableau où j'ai ma liste de référence est en feuille 3 et jaimerais que le remplacement se fasse sur les feuilles 4,5,6,7,8,9