fusion cellules

Bonjour, quand j'ecris

Range("B54").Offset(-1).UnMerge
Range("B54").Offset(-1, 0).Resize(, DuréeEtudes).Merge
Range("B54").Offset(-1, 0) = "ETUDES"

Range("B54").Offset(-1, DuréeEtudes).Resize(, DuréeTravaux).Merge
Range("B54").Offset(-1, DuréeEtudes) = "TRAVAUX

Cela donne le message : la fusion des cellules permet de conserver uniquement la valeur superieure gauche. Les autres valeurs seront ignorées

Quelqu'un peut-il m'aider? Merci