Sub Macro1()
With Sheets("Feuil1")
derlig = .Cells(Rows.Count, 6).End(xlUp).Row
.Range("g2:g" & derlig) = "=MATCH(RC[-1],Feuil2!C[-6],0)"
On Error Resume Next
.Columns("g:g").SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
.Columns("g:g").ClearContents
End With
End Sub