Export in pdf worksheet - vba

Question

I want to export in PDF all the worksheet except a few, but my code doesn't work, it export only one worksheet in PDF (there is 20 to export).
Also I select just a part of my document.
Can you help me with this ?
Dim nomfeuille As String
Dim strPath As String
Dim Selection As Range
Dim ws As Worksheet, FeuilleRef As Worksheet
strPath = "Documents"
Sheets("Synthèse").Activate
LaDate = Range("B3").Value
NumDate = Range("D3").Value
Set FeuilleRef = ActiveSheet
' Création fichier PDF
For Each ws In ActiveWorkbook.Worksheets
nomfeuille = ActiveSheet.Name
If nomfeuille <> "Cond.Editeurs AVOD" Or nomfeuille <> "Données - Recettes Pub. nettes" Or nomfeuille <> "Données - Recettes par titre" Or nomfeuille <> "Synthèse" Then
Range("A3").Select
y = 1
k = 1
Do While ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Select
y = y + 1
Loop
Do While ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Select
k = k + 1
Loop
Set Selection = ActiveSheet.Range("B3:N" & y)
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & LaDate & "\" & NumDate & "_" & nomfeuille & " ROYALTIES REPORT.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End If
Next ws
MsgBox ("Création des fichiers PDF effectués" & vbCrLf & vbCrLf & "Merci. ")```