Comparaison valeurs cellules

dim Flag as Boolean
Flag=False
For i = LBound(Valeurs_autorisees) To UBound(Valeurs_autorisees)
     If Cells(Num_ligne, 4) = Valeurs_autorisees(i) Then
          Flag=True
          Exit For
     End If
Next

If Flag then
    Cells(Num_ligne, 5) = "Valide"
Else
    Cells(Num_ligne, 5) = "Non pris en compte"
End If

If Cells(Num_ligne, 4) >=0 And  Cells(Num_ligne, 4) <=9 Then 
        Cells(Num_ligne, 5) = "Valide"
Else
    Cells(Num_ligne, 5) = "Non pris en compte"
End If

Sub Selection_caractère()
Dim Num_ligne As Variant
Num_ligne = 2
While Cells(Num_ligne, 2) <> ""
Cells(Num_ligne, 4) = Mid(Cells(Num_ligne, 2), 4, 1)
If Cells(Num_ligne, 4) Like "[0-9]" Then Cells(Num_ligne, 5) = "Valide" else Cells(Num_ligne, 5) = "Non pris en compte"
Num_ligne = Num_ligne + 1
wend
end Sub