Trier des données

Function TRIAGE$(plage1 As Range, plage2 As Range, Optional car$ = "?")
Dim i&
For i = 1 To plage1.Count
  If LCase(plage1(i)) Like LCase(car) Then TRIAGE = TRIAGE & vbLf & plage2(i)
Next
TRIAGE = Mid(TRIAGE, 2)
End Function

Function CONCATSI$(plage1 As Range, critere$, plage2 As Range, separateur$)
Dim i&
For i = 1 To plage1.Count
  If LCase(plage1(i)) Like LCase(critere) Then CONCATSI = CONCATSI & separateur & plage2(i)
Next
CONCATSI = Mid(CONCATSI, Len(separateur) + 1)
End Function