Boucle FOR auto-adaptable

Private Sub dede()
Dim A As Integer
Fin=Range('A4'Â'Â').End(xlDown).Row
A=4
do until A=Fin
If (Range('B' & A).Value = 'NA' Or Range('B' & A).Value = '-' Or Range('B' & A).Value = '0'Â'Â') And (Range('C' & A).Value = 'NA' Or Range('C' & A).Value = '-' Or Range('C' & A).Value = '0'Â'Â') And (Range('D' & A).Value = 'NA' Or Range('D' & A).Value = '-' Or Range('D' & A).Value = '0'Â'Â') Then
Range('N' & A).EntireRow.Delete
fin = fin-1
A=A+1
End If
If Range('B' & A).Value = '' Then
Range('A' & A & ':Y' & A).Font.Bold = True
Range('A' & A & ':Y' & A).Interior.ColorIndex = 37
End If
loop
End Sub

Public Sub vev()
Dim i As Integer, j As Integer

For i = Range('a65536').End(xlUp).Row To 4 Step -1
    For j = 2 To 4
        If Cells(i, j) = 'NA' Or _
           Cells(i, j) = '-' Or _
           Cells(i, j) = '0' Then
           Rows(i).Delete
        End If
    Next j
    If Cells(i, 2) = '' Then
        Range(Cells(i, 1), Cells(i, 25)).Font.Bold = True
        Range(Cells(i, 1), Cells(i, 25)).Interior.ColorIndex = 37
    End If
Next i
End Sub