Bonjour,

A partir d'un classeur, j'ai récupéré des données que j'ai stocké dans un tableau.

Je voudrais maintenant recopier l'ensemble dans un second classeur: la première donnée (dans mon code: "Copie(0)") dans la cellule A de la première ligne disponible et toutes les autres données du tableau dans la colonne B (les une sous les autres).
Ensuite, je voudrais fusionner toutes les cellules de A en fonction du nombre d'élément associé dans la colonne B (histoire d'avoir un jolie tableau ).

Pour l'instant, la cellule A du second classeur est bien renseigné, mais je n'arrive pas à alimenter la colonne B avec le reste des données du tableau

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
21
22
23
24
25
26
27
28
29
30
 
 
Private Sub test()
 
 Dim Copie(33) As String, j%, i%, k%, derLigne As Integer, previ As Worksheet
 
 With ThisWorkbook.Worksheets("Clients")
    Copie(0) = .Range("B4")
    For i = 1 To 6
            Copie(i) = .Range("A" & i + 15)
    Next i
    For j = 7 To 33
        If (.Range("B" & j + 17)) <> "" Then
            Copie(j) = .Range("B" & j + 17)
        Else:
        End If
    Next j
End With
 
Workbooks.Open "C:\Users\XXXX\Desktop\Ent\TABLEAUX AVANCEMENT.xlsx"
 
Set previ = ActiveWorkbook.Worksheets("Prév")
 
derLigne = previ.Range("b" & Rows.Count).End(xlUp).Row + 1
For k = LBound(Copie) To UBound(Copie)
    previ.Cells(derLigne, 1).Value = Copie(0)
    previ.Cells(derLigne, 2).Value = Copie(k)
Next k
 
End Sub