Bonjour
voici pour l'export pdf :
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
ActiveSheet.Range("$A$2:$N$" & ActiveSheet.Range("A65536").End(xlUp).Row).AutoFilter Field:=4, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\export.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveSheet.AutoFilterMode = False
Comme il n'y avait pas précisions... le fichier pdf généré se trouve dans le même dossier ou se trouve le fichier exécutant le code et sous le nom export.pdf...
si c'est pas comme cela que tu voulais il faudra adapter :
Filename:=ThisWorkbook.Path & "\export.pdf"
j'ai aussi modifier les zones d'impressions pour que le pdf généré soit correct....
pour ce qui est de état en attente
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
ActiveSheet.Range("$A$3:$N$" & ActiveSheet.Range("A65536").End(xlUp).Row).AutoFilter Field:=9, Criteria1:="<>"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\export2.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveSheet.AutoFilterMode = False
pour les autres, je te laisse faire, il suffit de changer
Field:=9
par Field:=10
pour en cours et Field:=11
pour programmé
ci joint ton fichier en retour
Fred