Salut Jacques et bienvenue sur le Forum,
Ci-joint ton fichier modifié avec le code ci-dessous :
Sub Dopple()
Dim c, p, x, y As Range, txt As String, Espace As Boolean
Set p = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
For Each c In p
If Len(c.Value) = 1 Then GoTo NextIteration
txt = UCase(Mid(c.Value, 1, InStr(1, c.Value, "(") - 1))
Espace = False
Do While Espace = False
If Right(txt, 1) = " " Then
txt = Left(txt, Len(txt) - 1)
Else
Espace = True
End If
Loop
Set y = Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row)
For Each x In y
If InStr(1, x.Value, txt) >= 1 Then
If Cells(x.Row, 5) = "" Then
Cells(x.Row, 5) = Cells(c.Row, 2)
Else
Cells(x.Row, 5) = Cells(x.Row, 5) & Chr(10) & Cells(c.Row, 2)
End If
End If
Next x
NextIteration:
Next c
End Sub
Je te laisse voir et revenir vers nous!
A dispo!