formule

Sub Macro1()
Dim cel As Range 'déclare la variable cel
Dim x As Byte 'déclare la variable x
 
'boucle 1 sur toutes les cellules éditées de la colonne A
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
 
    For x = 1 To 4 'boucle 2 sur les quatre chiffres du nombre
 
        'condition : si le chffre est égale à zéro ou supérieur à 7
        If Mid(cel.Value, x, 1) = 0 Or Mid(cel.Value, x, 1) > 6 Then
            cel.Offset(0, 1).Value = "FAUX" 'écris "FAUX" dans la cellule à droite
            Exit For 'sort de la boucle2
        Else 'sinon
            cel.Offset(0, 1).Value = "VRAI" 'écrit "VRAI"dans la celule à droite
        End If 'fin de la condition
 
    Next x 'prochain chiffre du nombre
 
Next cel 'prochaine cellule de la boucle
End Sub