Bonsoir,

Je ne suis pas du tout un expert en vba, j'utilise principalement l'enregistreur de macro et après j'essaie de simplifier le code. Seulement là je me retrouve bloqué..

Voici ce que j'ai :

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 Macro1()
 
Dim ext As Worksheet
 
 
Set ext = ThisWorkbook.Worksheets("Extraction")
 
 
' Mise en formes du tableau
 
    ext.ListObjects.Add(xlSrcRange, Range("$A$1:$D$3000"), , xlYes).Name = "Tableau2"
 
 
 
' Tri radical du tableau
    ext.ListObjects("Tableau2").Range.AutoFilter Field:=8, Criteria1:="=0", Operator:=xlOr, Criteria2:="=#N/A"
    ext.Range("Tableau2").SpecialCells(xlCellTypeVisible).Select
'Tout fonctionne jusqu'à la ligne qui suit
    Selection.EntireRow.Delete
    ext.ListObjects("Tableau2").Range.AutoFilter Field:=8
 
End Sub
Auriez-vous une idée pour contourner ce problème?

Cordialement