Selection et fusion [VBA]

Bonjour à tous,

J'ai un problème à vous soumettre :

Dans mon fichier j'ai des valeurs qui se répètent à la suite, je voudrais une macro qui parcourt ces valeurs et lorsque celles ci changent (ex : passe de 1 à 2) sélectionne toutes les cellules précédentes identiques et les fusionne (ex : sélection des valeurs 1 et fusion). Avec un loop sur les valeurs suivantes (ex valeurs 2 ) jusqu'a la dernière valeur de la colonne.

Merci d'avance pour votre aide.

Bonsoir,

Sub Fusion()
Dim derLig As Long, myRange As Range

With Sheets("Feuil1")
derLig = .Cells(Rows.Count, 2).End(xlUp).Row

For i = 1 To derLig
    Set myRange = .Cells(i, 2)
    Do Until .Cells(i + 1, 2) <> .Cells(i, 2)
    i = i + 1
    Loop
    Range(.Cells(myRange.Row, 8), .Cells(i, 8)).Cells.Merge
    .Cells(myRange.Row, 8) = myRange

Next i
End With
End Sub

++

Nickel merci !