Bonsoir à tous
j'ai un petit problème et je n'arrive pas à le résoudre. Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
 
' Macro1 Macro
'
'Sub tant_que()
Range(A1).Select
 Do While ActiveCell.Offset(-1, 0) <> 10
 ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
 * ActiveCell.Offset(1, 0).Selct
 
End Sub