Microsoft 365 Copie de plage à plage avec incrémentation

Bonjour
Je pense que j'ai un problème de syntaxe car ceci fonctionne:
Worksheets("CHIFFAFFANNUEL").Range("M" & NumDeSem + 2) = Worksheets("CHIFFAFF").Range("J3") //une seule cellule

alors que ceci, non:
Worksheets("CHIFFAFFANNUEL").Range("H" & NumDeSem + 2) = Worksheets("CHIFFAFF").Range("I31:M31") //une plage dans une cellule, je pense que c'est à cause de ça

et ceci ne corrige pas:
Worksheets("CHIFFAFFANNUEL").Range("H" & NumDeSem + 2 : "L" & NumDeSem +2) = Worksheets("CHIFFAFF").Range("I31:M31") //plouf, raté

Alors quelle est la bonne syntaxe svp?