bonjour...
Sub test()
var1 = Int(Rnd() * 10 + 1)
'ou
'var1 = Range('A1').Value
'Il faut une valeur dans A1
var2 = Int(Rnd() * 10 + 1)
'ou
'var2= Range('A2').Value
'Il faut une valeur dans A2
Cells(var1, var2).Select
End Sub
Sub test2()
Num = Int(Rnd() * 10 + 1)
Cells(92, Num).Select
End Sub
A+
claudy