Bonjour,
une p'tite démonstration :
1 2 3 4 5 6 7 8 9
| Sub Demo()
Application.ScreenUpdating = False
R& = -3
For Each V In Feuil1.Cells(1).CurrentRegion.Columns(1).Value
R = R + 4
Feuil2.Cells(R, 1).Resize(4).Value = V
Next
End Sub |
_____________________________________________________________________________________________________
Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …
_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo
Partager