Sub sfp()
Dim i as long
For i = 1 to range("A65536").end(xlup).row step 12 ' I va de 1 à la fin de la colonne en sautant 12 lignes
Range("A" & i & ":A" & i+11).copy ' Copie des 12 cellules
Range("B" & ((i-1)\12)+1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True ' ((i-1)/12) + 1 donne ligne 1,2,3,4,5,6. si cela doit etre copié sir les ligne 1,13,15.... ne mettre que i
next i
End Sub