Application d'une formule dans plusieurs onglets

Bonjour,

Je suis en train de faire une macro VBA et je suis bloque.
Je veux appliquer une meme macro a plusieurs feuilles sauf la premiere. Dans cette macro, j'ai une formule contenant une recherche V qui recupere des donnees dans un autre fichier "Conversion Table" dans l'onglet ayant le meme nom que celui de la feuille dans laquelle la formule s'applique.

J'ai ecris le code suivant, si vous pouvez m'aider, ce serait genial.

Private Sub CommandButton1_Click()

Dim nbfeuilles As Integer
Dim i As Integer
Dim j As Integer
nbfeuilles = Sheets.Count
salon = ActiveSheet.Name

For i = 2 To nbfeuilles
Sheets(i).Select
Columns("A:A").Insert Shift:=xlToRight

Cells(j, 2).Cut Destination:=Range("A8:A500")
Cells(j, 1).Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next j


For j = 1 To 500
Cells(j, 2).Select
Selection.FormulaR1C1 = "IF(ISERROR(VLOOKUP(RC[-1],'[Conversion Table.xlsx]" & Sheets(i).Name & "'!R2C1:R500C2,1,FALSE)),RC[-1],VLOOKUP(RC[-1],'[Conversion Table.xlsx]" & Sheets(i).Name & "'!R2C1:R500C2,1,FALSE))"

Cells(j, 2).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Selection.Replace What:="0 ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False 'enleve les espaces au debut des intitules
Selection.Replace What:="0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False 'enleve les 0 qui peuvent apparaitre

Next j


Next i

End Sub