Sub MEPListing()
Dim DernLigne As Long, DernColonne As Integer
With Worksheets("MAJ")
DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
DernColonne = .Cells(1, Cells.Columns.Count).End(xlToLeft).Column
With .Range("A1:A" & DernLigne)
.Formula = "=VLOOKUP(C1,$H1:$I9,2,0)"
.Value = .Value
End With
End With
End Sub