Sub OTM_MC2()
Application.ScreenUpdating = False
Set f1 = Sheets("Extraction TEM")
Set f2 = Sheets("OTM ACT sensibles")
p = Application.Match("N°OTM", f1.[A1:Z1], 0)
p2 = Application.Match("OTM - MC", f2.[A1:Z1], 0)
If Not IsError(p2) Then
n = f2.Cells(65000, p2).End(xlUp).Row
liste = f2.Cells(2, p2).Resize(n - 1)
End If
If Not IsError(p) And Not IsError(p2) Then
For i = f1.Cells(Rows.Count, p).End(xlUp).Row To 2 Step -1
c = Application.Match(f1.Cells(i, p), liste, 0)
If IsError(c) Then f1.Rows(i).Delete
Next i
End If
Application.ScreenUpdating = True
End Sub