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