Bonjour tout le monde,

Je bloque depuis peu sur une macro que j'aimerais réalisé. Etant débutant en macro, j'ai un peu bricolé avec tout ce que j'ai pu trouver pour faire quelquechose mais le résultat n'est pas correct.

J'explique mon problème:
Je souhaite d'un classeur A (CEB_final) copier plusieurs cellules à un classer B (Essai_opt_1)
puis du fichier B copier d'autres cellules vers des cellules du classeur B.
jusque là pas de problème sauf que quand je boucle pour réitérer cette opération sur plusieurs lignes Excel ne m'affiche le copier collé que pour la premiere et dernier ligne.

Si quelqu'un pouvait m'aider ce serait super sympa

Ci-dessous mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub
 
Dim i As Long
Dim DerniereLigne As Long
 
DerniereLigne = Range("B65536").End(xlUp).Row
 
For i = 6 To DerniereLigne
 
'Selection des données Input pour ligne 1
    Windows("CEB_final.xlsx").Activate
    Sheets("IRWST").Range("K:P" & DerniereLigne).Select
    Selection.Copy
    Windows("ESSAI_opt_1.xlsm").Activate
    Range("E:J" & DerniereLigne).Select
    Next iActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWindow.SmallScroll Down:=-6
End Sub