convertir en euro x feuilles

Bonjour

j`arrive a convertir une feuille en devsie EURO
mon taux de change est ds feuille specifique


toutes les semaines, je dois updater un fichier qui a de 5 a 10 feuilles.

la macro ci-dessous (ci-jointe) marche sur 1 feuille mais :

1/ Comment dire faire tourner macro sur les feuilles differentes de "FX RATE" et "macro"?

2/ Pourquoi la macro plante si je la colle le code sur la feuille "macro" : voir exemple


3/ est ce que le code est bon si j`ai + 150 000 lignes a traiter?

Private Sub CommandButton1_Click()
Dim Base As Range, Cell As Range, Liste As Range
Dim Lig1 As Integer, Lig2 As Integer, i As Integer

Application.ScreenUpdating = False

With Sheets("VRT")
.Range("D1").Select
Lig1 = .Range("D10000").End(xlUp).Row + 1
.Range("E2:E" & Lig1).ClearContents


Set Liste = .Range("D2😀" & Lig1 - 1)
End With

With Sheets("FX RATE")
Lig2 = .Range("A10000").End(xlUp).Row
Set Base = .Range("A1:A" & Lig2)
End With

' Transfert des données
For Each Cell In Liste

' Vérification de la présence du nom dans la zone résultat
If Application.CountIf(Base, Cell) > 0 Then
i = Application.Match(Cell, Base, 0)
Cell.Offset(0, 1) = Cell.Offset(0, -1) / Sheets("FX RATE").Cells(i, 2)
Else ' Coloration des noms absents en rouge
Cell.Interior.ColorIndex = 3
End If
Next Cell
Application.ScreenUpdating = True

End Sub




merci pour vos conseils

bonne apres midi a tous

happymarmotte