Sub test()
Dim c As Range
Dim i As Long
Dim p As Integer
p = 1
Set c = Range("A1")
For i = 6 To 30206
Application.StatusBar = i & "/30206 - " & p - 1 'ligne ajoutée pour évaluer l'avancement
cherche = Workbooks("fichier1").Sheets(9).Cells(i, 2)
Set c = Nothing
Set c = Workbooks("fichier2").Sheets(9).UsedRange.Find(cherche, Range("A1"), , lookat:=xlWhole)
If c Is Nothing Then
Workbooks("fichier1").Sheets(9).Rows(i).Copy Destination:=ThisWorkbook.Sheets(1).Rows(p)
ThisWorkbook.Sheets(1).Cells(p, 27) = i
p = p + 1
End If
Next
End Sub