test d'une cellule sur la même ligne

bonjour

en fait g crée une macro pour la suppréssion des ligne où il y a 0 ds la derniere colonne(cellule de résultat)
mais il faut que je conserve certaines des lignes même si il ya 0.
j'aurais aimé faire un deuxieme test ds la macro pour quelle regarde si ds la ligne il y une valeur spécifique (ex : desserte routiere).

voila le début de mon code

Sub try()
Selection.Merge
Range("B13").Select
Sheets("Feuil1").Select
Range("AA8").Select
Do Until ActiveCell = ""
If ActiveCell = "0" Then
Selection.EntireRow.Clear
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Loop

For lin = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Rows(lin).Find("*") Is Nothing Then Rows(lin).Delete
Next lin
End Sub


si vous pouvez m'aider ça serait cool
merci par avance
sebpika