Option Compare Text 'pour ignorer la casse
Sub Concatenate_Color()
Dim r As Range, tablo1, ncol%, tablo2, i&, t$, j%
Set r = [F3:DA65536].Find("*", , xlValues, , xlByRows, xlPrevious) 'dernière cellule
If r Is Nothing Then Exit Sub
tablo1 = Range("F3:DA" & r.Row) 'un tableau est plus rapide
ncol = UBound(tablo1, 2) 'nombre de colonnes
tablo2 = [DC3].Resize(UBound(tablo1))
For i = 1 To UBound(tablo1)
t = ""
For j = 1 To ncol
If Left(tablo1(i, j), 7) = "PESDELT" Then t = t & " - " & tablo1(i, j) 'formule de la MFC
Next
tablo2(i, 1) = Mid(t, 4)
Next
[DC3:DC65536].ClearContents 'RAZ
[DC3].Resize(UBound(tablo1)) = tablo2
End Sub