Bonjour,

En ces temps de télétravail, je reprends quelques macro (la reprise est dur compte tenu que j'en fais très rarement).

Pour celle-ci, je souhaite copier les lignes non vide de la colonne H de l'ensemble des feuilles du classeur excel à partir de la ligne 16.

J'ai ensuite les coller dans une nouvelle feuille à partir de la cellule B2. Voilà ou j'en suis actuellement.

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
 
 
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "T2"
 
Dim k As Integer, i As Integer
k = Sheets.Count ' ensemble des feuilles
 
For i = 1 To k
    Sheets(i).Activate 'pour toute les feuilles
 
Dim plage As Range
Dim cel As Range
Set plage = Range("H16:H" & Range("H65536").End(xlUp).Row) 'colonne à copier
For Each cel In plage
If cel.Value <> "" Then
 
ActiveWorkbook.Sheets("T2").Range("A65536").End(xlUp).Value = cel.Value
 
End If
 
Next cel
 
Next i
Set plage = Nothing
Mon code bloque à la partie
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveWorkbook.Sheets("T2").Range("A65536").End(xlUp).Value = cel.Value
Merci de votre aide.

Cordialement,