Sub supp_lig()
'selection de la feuille Transport
Sheets("Transport").Select
'on fait varier r du numero de la derniere ligne remplie de la colonne A a 1 par pas de -1
For r = [A65536].End(xlUp).Row To 1 Step -1
' si la formule contient =Saisie! et si cette formule aboutit a une erreur alors
If InStr(Range("A" & r).Formula, "=Saisie!") > 0 And IsError(Range("A" & r)).Value Then
'on supprime la ligne de numero r
Rows(r).Delete
End If
Next
End Sub