[CBernardT]

Re Impotep et bonsoir AeroPlanneur,

Pour ouvrir l'Editeur Visual Basic, tu dois faire Alt F11, puis double cliquer sur le module appelé 'Test'

Pour info, la macro :

Sub TestLoto()
Range('A5:A9').ClearContents
For i = 6 To 9
For j = 2 To 7
For k = 2 To 7
If Cells(i, j) = Cells(4, k) Then N = N + 1
Next k
Next j
Cells(i, 1) = N: N = 0
Next i
If Application.CountIf(Range('A6:A9'), 6) > 0 Then Range('A5') = 'Gagné'
End Sub

Cordialement

Bernard

Message édité par: CBernardT, à: 18/05/2006 22:53