Option Explicit
'Paramètres :
Const FOrig$ = "Feuil1", FDest$ = "anonc"
Const Plg$ = "C10958:V10971", Adr$ = "X4", Sel$ = "AL2"
Const Compteur$ = "Compteur"
Sub InitialiseCompteur()
'Remet le Compteur à zéro.
With ThisWorkbook
.Names.Add Name:=Compteur, RefersTo:="=0"
.Names(Compteur).Comment = "Décalage de Worksheets(""" & FOrig & """).Range(""" & Plg & """)"
End With
End Sub
Sub IncrémentCompteur()
'Incrémente le Compteur au pas de un.
With ThisWorkbook.Names(Compteur): .RefersTo = "=" & 1 + Evaluate(.Value): End With
End Sub
Sub Macro12()
With ThisWorkbook
'Copie la plage Plg décalée du nombre de lignes spécifié par le Compteur.
.Worksheets(FOrig).Range(Plg).Offset(Evaluate(.Names(Compteur).Value)).Copy
Application.ScreenUpdating = False
With .Worksheets(FDest)
.Range(Adr).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
.Activate
Application.ScreenUpdating = True
.Range(Sel).Select
End With
End With
End Sub