Sub mlkn()
Dim t(9) As Boolean
For Each r In Range("a1:g1")
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(0, k) = i
k = k + 1
End If
Next i
End Sub
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
Sub mlkn(lig)
Dim t(9) As Boolean
For Each r In Range("a1:g1").Offset(lig, 0)
If IsEmpty(r) = False Then
t(r Mod 10) = True
If Int(r / 10) <> 0 Then t(Int(r / 10)) = True
End If
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
=SIERREUR(PETITE.VALEUR(SI(ESTNUM(CHERCHE(LIGNE($1:$10)-1;$A1&$B1&$C1&$D1&$E1&$F1&$G1))*(NB.SI($L1:L1;LIGNE($1:$10)-1)=0);LIGNE($1:$10)-1);1);"")