Re,
CE n'est pas la même chose.
mais est-ce que cela ne suffirait pas de faire un filtre automatique sur Fournisseur?
Cordialement
Edit:
J'ai retrouvé quelque chose dont tu dois pouvoir te servir en en prenant l'essentiel
Application.DisplayAlerts = False
ligneinser = Sheets("feuil2" ).Cells(65527, 1).End(xlUp).Row + 1
monarticle = "06-12-005"
Range("a1" ).AutoFilter Field:=1, Criteria1:=monarticle
Range(Cells(2, 1), Cells(65527, 1).End(xlUp)).Select
Selection.EntireRow.Copy
ActiveSheet.Paste Destination:=Sheets("feuil2" ).Cells(ligneinser, 1)
ActiveSheet.ShowAllData
Application.DisplayAlerts = True
Message édité par seniorpapou le 23-05-2007 à 11:01:45