bonjour cher forum,

me voila entrain de tenter de gerer un copie paste de donnees de taille variables dans deux workbooks. voila a peu pres ce que ce la donne .
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim DerCel As Long
DerCel = Range("I").Cells.Count(xlCellTypeLastCell)
DerCel = MsgBox("have we a number", vbOKOnly) 
'cette derniere est justre un petit test
dim i as integer
For i = 1 to cint(Dercel)
Worksheets("Sheet1").Range("A & "i" & ") = Worksheets("Data1").Range("A & "i" & ") 
next i