Des questions bêtes !

Range(cells(x,y),cells(x1,y1)).select

Option Explicit
Sub Info()
Dim dl&
    Feuil2.Select
    dl = Range("A65536").End(xlUp).Row 'dl = Derniere Ligne
    Dim c&, l&, x&
For x = 1 To 26
For l = 2 To 25
If Feuil1.Cells(l, 1) = Feuil2.Cells(2, x) Then c = x 'c = la colonne trouvée (un nombre)
Next l
Next x
  MsgBox "La Feuille a traité : " & Feuil2.Name & " La derniere ligne a traité : " & dl & " La colonne à traité : " & c 'J'ai trouvé et affiché la feuille 2, la derniere ligne et la colonne à traité de la feuille 2

'La partie qui suit a été enregisté !
'Comment l'adapté avec les valeur trouvé ici dessus ?


    Columns("F:F").Select ' Columns(Cells(c,c)).Select ne fonctione pas
    Selection.Insert Shift:=xlToRight
    Range(Cells(1, c), Cells(l, c)).Select
    ActiveCell.FormulaR1C1 = "=LOOKUP(RC[1],Base!C[-5],Base!C[-4])"
    Selection.AutoFill Destination:=Range(Cells(1, c), Cells(dl, c))
    Range(Cells(1, c), Cells(dl, c)).Select
    Columns("F:F").EntireColumn.AutoFit
    Columns("F:F").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Application.CutCopyMode = False
    
End Sub