Bonjour merci pour votre réponse, mais le fichier est trop lourd pour être téléchargé (en plus les données sont confidentielles)
Voici le code :
Sheets("base"). Select
Activesheet. Range("A2:C300"). Autofilter Fied:=1, Criterial:= "doc"
Range (B3:b400). SpecialCells(xlCellTypeVisible). Copy
Sheets ("feuille1"). Range ("G54"). Select
Selection. PasteSpecial Paste:=xlpastevalues, opération :=xlnone, skipblanks :=false, Transpose:=False
Sheets("base"). Select
Activesheet. Range("A2:C300"). Autofilter Fied:=1, Criterial:= "CP"
Range (B3:b400). SpecialCells(xlCellTypeVisible). Copy
Sheets ("feuille1"). Range ("A34"). Select
Selection. PasteSpecial Paste:=xlpastevalues, opération :=xlnone, skipblanks :=false, Transpose:=False
Quand il n'y pas de résultats pour le premier filtre la macro bug et n exécute pas la suite du programme
Je ne comprends pas pourquoi
Merci beaucoup