trop fort en fait j'utilise ca
For i = 0 To 4
temp(i) = Sheets("rucklauf1997" ).Cells(indiceliste + 3, 7).Offset(0, i)
pat.[pr55].Offset(i, 0) = temp(i)
Next
J ai pas besoin des cases les cases en fait etait pas adapter si on rajouter une donnee fallait rajouter un donnee
Merci Merci
Il me reste a present a retouver le meme nom ds l autre classeur excel
Merci
---------------
Une ptite aide en VB et jVBien