Bonjour loic38,
Je suppose que ces plages correspondent à des tableaux dont les dernières lignes sont la 135è et la 120è.
Dans ce cas :
dl = Range("d65535").End(xlUp).Row
ActiveWorkbook.Names.Add Name:="Zone1", RefersToR1C1:="=Feuil1!R1C1:R" & dl & "C4"
Bien sûr, tu ne peux pas utiliser le même nom de plage pour toutes tes plages.
Il faut répéter pour chaque plage en changeant le nom de plage et le nom de la feuille.
En espérant que cela te dépanne.
Abel