Fussion de Cellules sous condition

Bonjour,

j'ai fais ce code :

Sub test()

Dim i As Long

Dim LastL As Long

i = 1

With Feuil12

    LastL = .Cells(.Rows.Count, 2).End(xlUp).Row

For i = 1 To LastL

If Cells ( i , 1 ).Value Like "*SV*" Then

i = i + 1

Else

With Range(Cells(i, 1), Cells(i, 2))
.Merge

End With

End If

Next

End With

End Sub

Ce que je veux réalise c'est une macro qui fusionne toute les cellules qui ne contienne pas les caractères "SV"

Le code marche bien à quelque chose près :

Je ne sais pas du tout pourquoi mais il saute certaine ligne sans raison...

Donc voilà je voudrais savoir comment remédier à ça

Merci d'avance

Petit car j'ai compris pourquoi le programme saute des lignes :

enfaite il incremente deux fois quand il recontre les caractère "SV" et pas une...

car il y a le i=i+1 et le Next i après

Mais je vois pas comment faire pour l'obligé a sauté une seul ligne quand il rencontre les caracatères "SV"

PS : j'ai joint un ficher pour l'exemple

Bonjour,

Joins-nous le fichier pour le test.

Je viens de joindre un ficher

Re,

Il doit dépasser la limité autorisée. Allège-le avant de joidre.

Raja a écrit :

Re,

Il doit dépasser la limité autorisée. Allège-le avant de joidre.

je lavait joins sur le 1er message mais je le rajoute ici aussi

Re,

Peux-tu me dire, qu'est-ce qu'il doit rester au final dans ton tableau. Qu'entends-tu par fusionner ?