Recherche avec plusieurs valeurs

Bonjour à tous,

C’est mon premier post sur ce forum, j'y ai souvent en lecture.

J'ai parcouru les différents sujets mais je ne trouve pas de réponse à mon problème

J'ai une base de données avec plus de 30.000 lignes à traiter

Je vous mets en pièce jointe un exemple réduit de la base et du résultat souhaité

Les colonnes dans le fichier de base vont de A à AR avec uniquement la colonne AR qui différe. Je souhaite ainsi créer automatiquement une nouvelle base avec une colonne AR qui regroupe les infos en fonction du critére de la colonne A.

Et a chaque ajout de ligne lancer la même opération via une macro.

Je ne sais pas si j'ai été assez clair dans mon explication ( le fichier exemple peut être plus clair)

Merci par avance

Salut Kheuch,

Quelque chose comme ça ?

Un double-clic en feuille 'Base' démarre la macro...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tTab, iIdx%, iNum%
'
tTab = Range("A1").Resize(Range("A" & Rows.Count).End(xlUp).Row, Cells(1, Columns.Count).End(xlToLeft).Column).Value
'
For x = 2 To UBound(tTab, 1)
    If CInt(tTab(x, 1)) <> iNum Then
        iNum = CInt(tTab(x, 1))
        iIdx = x
    Else
        tTab(iIdx, 4) = tTab(iIdx, 4) & "_" & tTab(x, 4)
        tTab(x, 1) = ""
    End If
Next
With Worksheets("Final")
    .Range("A1").Resize(UBound(tTab, 1), UBound(tTab, 2)).Value = tTab
    .Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    .Activate
End With
'
End Sub

A+

Merci beaucoup! ça marche