Dans ce cas, voici un premier essai à adapter (références "Base" et numéro de colonne où se trouvent les clients) :
Sub test()
with range("Base") 'adapter référence du tableau
t = Unique(.columns(1).value) 'adapter numéro de colonne des clients dans ce tableau
for each elem in t
sfilename = thisworkbook.path & "\BLABLA " & elem & ".pdf"
.autofilter field:=1, criteria1:=elem 'idem, adapter numéro de colonne > field:=1
.exportasfixedformat xltypepdf, sfilename, , , false
next elem
end with
end sub
function Unique(ArrSrc)
n = 1: redim t(1 to n): t(1) = ArrSrc(1, 1)
for each elem in ArrSrc
for each key in t
if elem = key then goto suiv
next key
n = n + 1: redim preserve t(1 to n): t(n) = elem
suiv:
next elem
Unique = t
end function
Cdlt,