Détection de cellules fusionnées et défusion

Bonjour.

Je dois traiter des informations à partir d'un planning (exemple voir le fichier joint).

Sur cette feuille, il y a des cellules fusionnées.

Par exemple de E6 à E8, j'indique qu'il y a un entretien de la machine 4 du 06 au 08 janvier.

Moi je voudrais que ces cellules soient automatiquemet défusionnées, mais qu'en plus la même valeur soit reproduite sur

toutes les cellules (ici ce serait de reproduire Entretien de E6 à E8 3 fois..

Je sèche complètement.

Pouvez-vous m'aider, s'il vous plaît ?

Merci.

Salut flyEmirates et le forum

Une proposition :

Sub test()
Dim Plage As Range, Cel As Range, Zone As Range, Val
Set Zone = Range([B2], Cells(Cells(Rows.Count, "A").End(xlUp).Row, Cells(1, Columns.Count).End(xlToLeft).Column))
Zone.Select
For Each Plage In Zone
    If Plage.MergeArea.Cells.Count > 1 Then
        Val = Plage.Cells(1).Value
        For Each Cel In Range(Plage.MergeArea.Cells(1), Plage.MergeArea.Cells(Plage.MergeArea.Cells.Count))
            If Cel = Plage.Cells(1) Then Plage.UnMerge
            Cel = Val
        Next Cel
    End If
Next Plage

End Sub

A+

J'ai testé et ça fonctionne correctement.

Merci.

@+ et bon week-end