Sub MakePDFNS()
Dim NomFichierPS As String
Dim NomFichierPDF As String
Dim ImprimanteVirtuelle As PdfDistiller
NomFichierPS = "C:\Test\Temporaire.ps"
' A vérifier mais tu as certainement un dossier temp à cet endroit là
Set ImprimanteVirtuelle = New PdfDistiller
Sheets("table").Activate
Cells(1, 1).Select
For Each ligne In ActiveSheet.Rows
If ligne.Cells(1, 1).Value = "oui" Then
ligne.Cells(1, 2).Select
Selection.Copy
Sheets("Comparatif").Activate
'colle
Range("B6:B7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'imprime
NomFichierPDF = "C:\Test\" & ActiveSheet.Range("C1").Value & ".pdf"
' Modifier le chemin et le nom en fonction de tes besoins
ActiveSheet.PrintOut Copies:=1, Preview:=False, _
ActivePrinter:="AcrobatDistiller sur ne03", PrintToFile:=True, _
Collate:=True, PrToFileName:=NomFichierPS
' Si tu as un débogage sur cette ligne, il est probable que ça vienne de ne00 qui définit le NetWork,
' qui est lié, il me semble, à l'ordre d'installation de tes imprimantes
' A tester à ce moment là avec ne01, ne02, etc.
ImprimanteVirtuelle.FileToPDF NomFichierPS, NomFichierPDF, ""
On Error Resume Next
Kill NomFichierPS
Kill "C:\Test\" & ActiveSheet.Range("C1").Value & ".log"
' Distiller créé un log systématiquement, si la macro ne crée pas de PDF, tu peux
' désactiver le Kill, afin de lire le log pour savoir où est le souci (souvent problème de polices...)
On Error GoTo 0
End If
If ligne.Cells(1, 1).Value = "End" Then
Exit For
End If
Sheets("table").Activate
Next
End Sub