Bonjour
Voici ma plage suivante

Nom : Plage BD.png Affichages : 165 Taille : 21,8 Ko

je souhaite obtenir une autre plage sans doublons par rapport a la fusion col1 & col2 & col3 & col4 & col6 la colonne 5 ne seras pas inclus.

voici résultat Souhaité

Nom : Resultat BD.png Affichages : 143 Taille : 8,9 Ko

J'ai utiliser le code Suivant mais j'ai coincé dans la transposition du dictionnaire vers Excel ou bien comment convertir un dictionnaire dans une plage

Nom : Dic Vers Plage.png Affichages : 147 Taille : 7,4 Ko

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
Sub SpLignesIdentiques()
Application.ScreenUpdating = False
Set Sh = Sheets("BD")
a = Sh.Range("A2:F21").Value
Set mondico = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(a)
    temp = a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 4) & "|" & a(i, 6)
    mondico(temp) = mondico(temp) + 1
Next i
 
'Transposer mondico vers excel
 
 
 
End Sub