Bonjour à tous,
Comment allez-vous depuis tout ce temps...?
Il y a longtemps que je ne suis pas passé, dsl...
Bonjour pas fortiche, ici une idée:
Sub_incrémentation()
Dim a As Integer
Dim y As cell
If y.value=''
then y=10000
For each y in worksheet('NomDeTaFeuille')
if y.Offset(a,1)='' then
y.Offset(a,1)=y.value+1
en if
next y
a=a+1
en if
end sub
Il y a un moment que je ne suis pas venu, mon VBA est un peu rouillé; j'espère que cela t'aidera quand même....
@ +
Toutou