Création macro

Bonjour a tous,

Je refait une nouvelle conversation car je me suis aperçu que je m'exprimé mal sur l'ancienne.

Etant nul en conception de macro ( limite j'y connais rien ) j'aurai besoin d'un coup de main.

Ce dont j'ai besoin c'est que la macro recherche les doublons de la colonne A à D et que si c'est un doublons qu'il concatener la ligne entière! Et ce la jusqu’à la fin de mon fichier qui comporte pour le moment 96000 lignes et ou il risque y en avoir plus au final.

Mon patron me demande cela aujourd'hui pour hier ( façon de parler ) donc c'est relativement urgent!!

Merci d'avance à tous.

Affaire résolut grace a moi meme merci de votre aide!!!

Code macro :

Sub test()

With Sheets(1)

Dim DernLigne As Long

DernLigne = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row

For i = 3 To DernLigne

If Cells(i, 1).Value = Cells(i - 1, 1).Value Then

For j = 6 To 22 'de la col F:F à V:V

Cells(i - 1, j).Value = Cells(i - 1, j).Value & " ; " & Cells(i, j).Value

Next j

Rows(i).Delete

i = i - 1

End If

Next i

End With

End Sub