Extraire deux valeurs dans cellules concatener

Merci Fred,

Je test lundi et te redis.

Bonjour Fred,

Tout fonctionne.

Merci

Bonjour,

je souhaiterais faire un tri de A ->Z sur la cellule "B5"

Voici le code en place :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim NbLg As Long

If Target.Address <> "$B$1" Then Exit Sub

Application.ScreenUpdating = False

With Sheets("Données")

NbLg = .Range("A" & Rows.Count).End(xlUp).Row ' Nombre de ligne à traiter

.Range("S2").Formula = "=COUNTIF(B2,""*""&'" & ActiveSheet.name & "'!B1&""*"")>0"

.Range("A1:P" & NbLg).AdvancedFilter Action:=xlFilterCopy, criteriarange:=.Range("S1:S2"), copytorange:=Range("A5:P5")

.Range("S1:S2").ClearContents

End With

End Sub

Merci