Delete ne fonctionne pas

Bonjour à tous,

j'ai un souci avec mon code, le .Delet ne fonctionne pas.

Je voudrais qu'il suprime les lignes qui contiennent un #NA dans la 2eme colonne.

For i = 4 To dernligne
If Workbooks("one gate exportation 3").Sheets("Financements").Cells(i, 2) <> "E0009" Then
Sheets("provisoire").Cells(i - 3, 1) = Sheets("Financements").Cells(i, 2).Offset(0, 1)
Sheets("provisoire").Cells(i - 3, 3) = Sheets("Financements").Cells(i, 2).Offset(0, 2)
End If
Columns("A:A").EntireColumn.AutoFit
Sheets("provisoire").Cells(i - 3, 2) = Application.VLookup(Sheets("provisoire").Cells(i - 3, 1).Value, Sheets("Feuil3").Range("A1:C500"), 3, False)
If WorksheetFunction.IsNA(Cells(i - 3, 2)) = True Then
Cells(i - 3, 2).EntireRow.Delete
Else
End If
Next

à la place de supprimer la ligne, il supprime le contenu. Pour voir où ça coinçait, j'ai testé plusieurs chose, comme par exemple remplacer la .Delete par =3 et cela me donne bien des 3 dans toutes les cellules de la ligne donc la condition et l'entirerow fonctionnent bien.

Est ce que quelqu'un a une idée de ce que je fais mal ?

Merci d'avance !!