Bonjour
La modification du bouton
Private Sub CommandButton1_Click()
For n = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(n) = True Then
Set k = ThisWorkbook.Names("Tableau_DB").RefersToRange
Set k1 = k.Find(Me.ListBox1.List(n, 3))
fich = k1.Offset(0, 2).Value
Call pdf(fich)
End If
Next
la modification de la procédure pdf
Sub pdf(fich)
Dim SousDossier As String
Dim chemin As String
Dim NomFichier As String
NomFichier = fich & "-" & "ENTETE" & ".pdf"
.............
End Sub