Bonjour a tous/toutes!

Je me permet de vous solliciter puisque malgré les nombreux forums que j'ai visite, je n'ai pas trouve de solutions a mon petit problème...que voici :
J'ai un fichier Excel d'une colonne, contenant plusieurs milliers de lignes. J'aimerai pouvoir appliquer des filtres afin qu'il ne me reste plus que des informations uniques qui sont : "Computer name" et "HDD serial number".
Voici 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
' ouverture du fichier excel 
Fichier_XLS = "c:\test.xls" 
Feuille_XLS = "test" 
 
set objExcel = WScript.CreateObject("EXCEL.application") 
objExcel.Visible = True
objExcel.Workbooks.Open Fichier_XLS 
objExcel.Sheets(Feuille_XLS).Activate
objExcel.Columns("A:A").Select
 
xlFilterInPlace = 1
xlFilterCopy    = 2
uniqueRecords   = true
 
objExcel.Selection.AdvancedFilter xlFilterCopy, , objExcel.columns("B:B"), uniqueRecords
 
objExcel.Columns("B:B").Select
objExcel.Selection.AutoFilter 1,"=Computer name*",xlOr,"=HDD serial number*"
Ceci fonctionne jusqu'à la sélection de la colonne B, le problème vient de Autofilter. Si je ne met qu'un seul critère, cela fonctionne. Des que j'essaye des combinaisons avec "xlOr", ca capote....les erreurs sont variées, en fonction de la ou j'essaye de mettre des parenthèses ou des guillemets...
J'espère avoir été suffisamment explicite et vous remercie d'avance pour le les réponses que vous pourriez m'apporter!

A bientôt.