Bonjour,

Je suis coincé dans ma macro, j'ai placé un filtre pour pouvoir masqué certaine ligne et je voudrais transférer seulement les données qui sont dans mes lignes visible. Donc pour être tranquille je voudrais directement supprimer ces lignes masqué. Je n'ai pas trouver la commande sur le net. Si quelqu'un peut m'aider 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
24
25
26
27
28
29
30
31
32
33
'Extraction des collaborateurs'
    Sheets("Data Grpe").Select
    Columns("D:D").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Columns("A:A").Select
    ActiveSheet.Paste
    ActiveSheet.Name = "Liste de noms"
    Dim Plage As Range, Cell As Range
    Set Plage = Range("A2:A" & Split(ActiveSheet.UsedRange.Address, "$")(4))
    Plage.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Plage, Unique:=True
    Set Plage = Plage.SpecialCells(xlCellTypeVisible)
    Selection.EntireRow.Hidden = False
 
 
'Ajout des collaborateurs dans la table "Temps TLM" '
Dim E As Integer
Dim F As Integer
E = 3
Do While Cells(E, 1) <> ""
    Cells(E, 1).Select
    Selection.Copy
E = E + 1
    Sheets("Temps TLM").Select
F = 11
        Do While Cells(3, F) <> ""
            F = F + 1
        Loop
    Cells(3, F).Select
    ActiveSheet.Paste
    Sheets("Liste de noms").Select
Loop