Fusionner des cellules

Bonjour,

j'aimerais fusionner les cellules identiques qui sont consécutives

voici le petit code sur lequel je fais mes test

Sub test()

Dim tableau(5) As Variant

tableau(0) = "O11"
tableau(1) = "O11"
tableau(2) = "O11"
tableau(3) = "O12"
tableau(4) = "O12"

For i = 0 To UBound(tableau)

 If tableau(i) <> "" Then

    Cells(3, 1 + i) = tableau(i)
 End If

Next i

  End Sub

je vous joins mon fichier qui illustre ce que j'aimerais avoir

merci beaucoup

[message annulé par son auteur. Désolé]

Bonjour

Un essai. Te convient-il ?