Private Sub CommandButton1_Click()
Dim i$, c As Range, ws As Worksheet
i = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
Sheets("Récap Chiffres").Range("b2:i5").Copy Sheets("Récap Client").Range("c8")
Application.CutCopyMode = False
For Each c In Feuil1.Range("D2:D" & Feuil1.[D65536].End(3).Row)
[B1] = c.Offset(, -3): [B2] = c.Offset(, -2): [B3] = c
Set ws = Sheets("Récap Client")
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & i & " - " & c & ".pdf"
Next
Sheets("Récap Client").Range("a6:j15").Delete
End Sub