Remplacement automatique entre deux classeurs.

Sub Ouvre()
    Feuille$ = Cells(2, 3)
    Colonne$ = Cells(2, 5)
    Sheets(Feuille).Select
    Columns(Colonne$).Select
    Selection.Copy
    Selection.Insert Shift:=xlToRight
    Range(Colonne$ & "2").Select
    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = "=LOOKUP(RC[1],Base!R1C1:R24C1,Base!R1C2:R24C2)"
    Selection.AutoFill Destination:=Range("F2:F1000") ' Comment mettre cela avec la variable Colonne$ ?
    Range("F2:F1000").Select  ' Comment mettre cela avec la variable Colonne$ ?
    Columns(Colonne$).EntireColumn.AutoFit
    Columns(Colonne$).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range(Colonne$ & "1").Select
    Application.CutCopyMode = False
    Columns("G:G").Select ' Comment mettre cela avec la variable Colonne$ + 1 à droite soit G ?
    Selection.EntireColumn.Hidden = True

End Sub