Incrémentation cellules et saut de lignes ..

Bonjour les gens! Tjrs ossi nul en vba ... et toujours plus de questions ... ^^
mon but est de pouvoir, lorsque la selection depasse un nombre de colone predéfinis ( formant une page A4 pour impression ) elle sincrémente de la meme maniere avec un saut de ligne ...
J'ai essayé pas mal de manipulations... mais toujours rien ..
merci bcp

je penses que ca a cette forme la :

For i = "A" to "h"
Range("A1").PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False
next i

if i >= "h"
ActiveCell.Offset(0, 1).Value.... ?
NEXT I

mais sincérement chui a la ramasse ! merci