Bonjour le forum

J’ai écrit ce que je voulais faire, après ça j’ai écrit la macro et j’ai un problème bien sûr

Dans un tableau, je vais travailler sur 2 colonnes.

A-Ce que je veux faire
On se positionne en B2.
on teste si B2 = B3 alors on exécute cette procédure :
1) on concatène en C2 les valeurs de C2 et C3 séparer par le signe +
2) on supprime les cellules B3 et C3 , d’où B4 et C4 deviennent B3 et C3
on teste si B2 = B3 =>procédure
si B2 # B3 alors on se positionne sur B3

on teste si B3 = B4 => procédure
si B3 # B4 alors on se positionne sur B4
On continue jusqu’à trouver une ligne vide alors on sort de la boucle


B- Ma macro ( je me suis beaucoup inspirée de macros trouvées sur le forum)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub BoucleTest()
'Boucles pour concaténer les valeurs de doublons et supprimer les doublons
'On commence à la cellule actuellement sélectionnée (normalement c'est B2)
Dim x
Dim y


x = ActiveCell.Row
y = x + 1
Do While Cells(x, 2).Value <> ""
     Do While Cells(y, 2).Value <> ""
'Teste les doublons: si les valeurs de la cellule active et de la suivante sont  égales,
'concatène la cellule voisine de x avec la cellule en dessous,en les séparant avec +
'puis supprime la seconde paire, sinon passe à la ligne suivante jusqu'à la fin.

If (Cells(x, 2).Value = Cells(y, 2).Value) And ((ActiveCell.Offset(0, 1).Value) & "+" & (ActiveCell(-1, 1).Value)) Then
Cells(y, 3).EntireRow.Delete
Else
    y = y + 1
End If
Loop
'augmente la valeur de x de 1 pour déplacer le point de départ de la boucle à la ligne suivante
x = x + 1
Loop
End Sub
Je n'arrive pas à écrire correctement la ligne en rouge pourtant c'est simple: si 2 cellules sont égales concatène les 2 cellules voisines!!!

Merci à qui me dépannera.