Sub principal()
For i = 0 To 1
Call mlkn(i)
Next i
End Sub
Sub mlkn(lig)
Dim t(9) As Boolean
For Each r In Range("a1:g1").Offset(lig, 0)
t(r Mod 10) = True
t(Int(r / 10)) = True
Next r
For i = 0 To 9
If t(i) = True Then
Range("m1").Offset(lig, k) = i
k = k + 1
End If
Next i
End Sub