Bonjour – après avoir galérer en vba ce week end je reviens vers vous...
je voudrais copier des lignes dans un fichier Excel nommé DEPART et les coller les une à la suite des autres dans un fichier nommé ARRIVER en colonne.
Les lignes ont 8 cases – j’ai fait en sorte dans le programme qu’elle se colle les une à la suite des autres.
Voir les captures d’écran pour mieux comprendre merci.

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
21
22
23
Sub copie_DEPART_ARRIVER()
 
Dim j As Integer
 
For j = 1 To 5 ' NUM_SERIE
 
    Windows("DEPART.xls").Activate
 
   Range("A" &(j+3) : "H" &(j+3)).Select
 
 
    Selection.Copy
 
    Windows("ARRIVER.xls").Activate
 
    Range("C" & 8 * (j - 1) + 2).Select
 
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
                       SkipBlanks:=False, Transpose:=True
 
Next j
 
End Sub

Mais le problème est que je n’arrive pas bien à utiliser la ligne de code - Range("A" &(j+3) : "H" &(j+3)).Select (pour copier la ligne de la case A j à la case H j)– j’ai essayer plusieurs code différent rien à faire – je suis bloqué

Merci de m’aider – Ash.