Si cellules fusionnées ajouter Saut de page

Bonjour,

Je suis parvenu à mettre des sauts de page mais statiques.

Sub sauter()
    ActiveSheet.ResetAllPageBreaks
    Set ActiveSheet.HPageBreaks(1).Location = Range("B20")
    Set ActiveSheet.HPageBreaks(2).Location = Range("B52")
End Sub

Je voudrai s'il vous plait une macro qui insère des sauts de page dans une plage dynamique.

En colonne B à partir de la ligne 5, j'ai une succession de cellules fusionnées, je voudrai parvenir à insérer un saut de page à chaque groupe de cellules fusionnées.

En vous remerciant par avance.

Cordialement,

Bonjour et bienvenue sur le forum

Un essai. Te convient-il ?

Bonsoir,

Je te remercie beaucoup. Je te dis tout simplement bravo, ton fichier répond exactement au résultat que j'attendais.

Je ne suis très à l'aise avec le VBA, donc mon codage laisse à désirer.

Je joins un un fichier pour le partage. En fait, j'ai solutionné mon problème avec 2 macros qui pourraient être remodeler en une seule.

Au départ, sur mon fichier il y avait en colonne B une suite de lignes avec la même valeur que j'ai fusionné par macro.

Donc sur le fichier joint, les sauts de pages sont définis à chaque changement de valeurs avec une macro, puis la seconde macro les fusionne.

1000 mercis.

Cordialement,