Remplacement en VBA

[TISBA]

Bonjour tout le monde!

Voilà j'ai une macro qui me fait une opération de remplacement! La macro est la suivante!

Sub Traduction()
Dim Plage As Range, c As Range, Remplacement As Range
Sheets('B_SAISIE').Select
Set Remplacement = Range('A1', Range('a65536').End(xlUp))
For Each c In Remplacement
On Error Resume Next
c.Value = WorksheetFunction.Index(Range('TRADUCTION!A:B'), _
Application.Match(c.Value, Range('TRADUCTION!A:A'), 0), 2)
Next c
End Sub

En faite sur la feuille TRADUCTION on à 2 colonnes : A = mot en français et B = mot en espagnol
Sur la feuille B_SAISIE j'ai des valeurs à traduire! Ainsi la macro cherche dans la feuille B_SAISIE les éléménts et les remplacent par leurs traductions!
Le seul problème est que cette macro à été developpée pour traduire (remplacer) uniquement la colonne A de la feuille B_SAISIE! Or je souhaite qu'elle me traduise de la colonne A à J ??? comment faire! Dans le code actuel c'est ça qui bloque :

Set Remplacement = Range('A1', Range('a65536').End(xlUp))
For Each c In Remplacement


Voilà!
Merci à tous qui essayez de m'aider!

 

[PascalXLD]

Bonjour

Set Remplacement = Range('A1:A' & Range('a65536').End(xlUp).row)

Pour la colonne A

Set Remplacement = Range('A1:J' & Range('a65536').End(xlUp).row)

Pour colonne A à J

 

[TISBA]

EXCEL...ENT !

Merci pour ce coup de pouce!

 

[Re TISBA]

Encore un question ! Et pour faire l'inverse dans ce cas la! Pour remplacer les valeurs avec les données de la colonne B par celles de la colonne A ??

Je pense que c'est à niveau là que ça joue ? :
('TRADUCTION!A:A'), 0), 2)



Sub Traduction()

Dim Plage As Range, c As Range, Remplacement As Range
Sheets('B_SAISIE').Select
Set Remplacement = Range('A1:L' & Range('a65536').End(xlUp).row)
For Each c In Remplacement
On Error Resume Next
c.Value = WorksheetFunction.Index(Range('TRADUCTION!A:B'), _
Application.Match(c.Value, Range('TRADUCTION!A:A'), 0), 2)
Next c

End Sub


Merci!