khroutchev
XLDnaute Nouveau
Quelqu'un peut-il m'aider sur ce code .... seul le filtre beug.
Merci d'avance
Code:
Option Explicit
Sub Renomme()
Worksheets("Feuil2").Name = "SURCOMP"
End Sub
Sub Filtre()
With Worksheets("Feuil1")
If .FilterMode = True Then .ShowAllData
.[A1].AutoFilter Field:=5, Criteria1:=Array("9421", "9422", "9423"), Operator:=xlFilterValues
End With
End Sub
Public Sub Traitement()
Worksheets("Feuil1").UsedRange.SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Feuil2").Range("A1")
End Sub
Merci d'avance