Sub delerreurs()
Dim T, i As Long
Application.ScreenUpdating = False
Set wb = Workbooks.Open(ActiveWorkbook.Path & "\Fichier2.xls")
T = Sheets("Feuil1").Range("C2:C" & Range("C65000").End(xlUp).Row).Value
wb.Close
For i = UBound(T) To LBound(T) Step -1
ActiveSheet.Rows(T(i, 1)).Delete
Next
Application.ScreenUpdating = True
End Sub