Répéter des copier coller sur 4800 lignes

Bonsoir à tous,

je débute en VBA et je voudrais répéter l'opération ci-dessous 4800 fois

Range("AE2:AF2").Select
Selection.Copy
Sheets("IDLC").Select
Range("F9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("autres départs").Select
Range("AG2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AE3:AF3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("IDLC").Select
Range("F9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("autres départs").Select
Range("AG3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("AE4:AF4").Select etc etc jusqu'à AE4800:AF4800

Application.CutCopyMode = False
Selection.Copy
Sheets("IDLC").Select
Range("F9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("autres départs").Select
Range("AG4").Select etc etc jusqu'à AG4800

Merci pour votre aide c'est urgent je dois fournir tous les élément demain matin.

Hello,

Je ne touche pas à ton code mais en ce qui concerne ta demande, pour executer 4800 fois du code voila comment tu peux faire :

dim i as integer

for i = 1 to 4800
'Ton code
next i

merci pour ta réponse. je vous joins mon fichier afin que ce soit plus clair.

A partir la feuille "autres départ" je dois copier :

la cellule A2 dans la feuille IDLC cellule F6

la cellule G2 dans la feuille IDLC cellule F4

la cellule F2 dans la feuille IDLC Cellule F9

une fois ces opérations terminée j'ai un calcul qui se fait dans la cellule F22 de la feuille IDLC et je dois copier la valeur de la cellule dans la feuille "autres départs" cellule H2

je dois faire cela jusqu'à la dernière ligne renseignée.

Ci-joint le fichier.

merci

hello, quelqu'un a une solution pour moi. Merci

Bonsoir Safia,

Voici le fichier avec un petit bout de code

Peu importe le nombre de lignes

@+

merci Bruno ça fonctionne !!! Vraiment top ce forum. Merci à tous pour l'accueil