Sub Test_Print_Chrome_Pdf()
Dim Url As New Collection
Const Chrome = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
Url.Add Array("Lion_et_Fille.pdf", "https://fr.dreamstime.com/imagination-lion-baiser-fille-amour-nature-image129595579")
Url.Add Array("Jeu.pdf", "https://www.un-petit-genie.com/boutique/catalogue/jeu-apprendre-mathematiques/?gclid=Cj0KCQiA2NaNBhDvARIsAEw55hhxzex5pk70l6nVPlAqOcJHLX0wlsGL7XzmTqBTFLyARdpM6CHovdwaAtgfEALw_wcB")
For Each elem In Url
cmd = Chrome & " --headless --disable-gpu --print-to-pdf=""D:\Pdf\" & elem(0) & """ " & elem(1)
Shell cmd
Next
End Sub