Hello, how can I fix this code or shorten it? It works fine, but it's slow
VBA Code:
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