Problem executing code VBA

[sofas]

Hello, how can I fix this code or shorten it? It works fine, but it's slow

Sub TEST()

Dim MT As Worksheet
Set MT = Feuil1
  With MT.Range("F2:F" & MT.Range("a" & Rows.Count).End(3).Row)
      .Formula = "=VLOOKUP(""*""&RC[-1]&""*"",C1:C4,1,0)"
    .Value = .Value
    With MT.Range("G2:G" & MT.Range("a" & Rows.Count).End(3).Row)
     .Formula = "=VLOOKUP(""*""&RC[-2]&""*"",C1:C4,2,0)"
    .Value = .Value
      With MT.Range("H2:H" & MT.Range("a" & Rows.Count).End(3).Row)
      .Formula = "=VLOOKUP(""*""&RC[-3]&""*"",C1:C4,3,0)"
    .Value = .Value
    With MT.Range("I2:I" & MT.Range("a" & Rows.Count).End(3).Row)
      .Formula = "=VLOOKUP(""*""&RC[-4]&""*"",C1:C4,4,0)"
   .Value = .Value
  End With
  End With
  End With
  End With
End Sub

 

[PCL]

Sofas, can you please confirm time measurements done and can you do same measurements with others codes: Yours and mine
The idea is just to understand with method the best :
So far ( for me ) using formulas was the slowest manner

 

[sofas]

No, the implementation was only on a trial version with about 100 rows. I will try all the suggested methods on the original file to see which one is better. Thank you all for the help

 

[PCL]

I will try all the suggested methods on the original file to see which one is better
Super, and thanks to let's know the score ... just for information.