Salut,
Je sais pas si ça répond à ton besoin, mais voici peut être une piste :
Sub different()
Dim i As Integer, j As Integer, k As Integer, p As Integer, x As Integer, n As Integer
For x = 1 To 4
If x = 1 Then n = i
If x = 2 Then n = j
If x = 3 Then n = k
If x = 4 Then n = p
Do Until n <> i And n <> j And n <> k And n <> p
If n = i Then i = i + 1
If n = j Then j = j + 1
If n = k Then k = k + 1
If n = p Then p = p + 1
Loop
If x = 1 Then i = n
If x = 2 Then j = n
If x = 3 Then k = n
If x = 4 Then p = n
Next
End Sub
Skiinck