Fusionner le contenu de plusieurs cellules avec condition

Sub classement()
x = 1
For n = 6 To 14 ' boucle sur les lignes 6 à 14
If Application.WorksheetFunction.CountIf(Range("A6:A" & n), Range("A" & n)) = 1 Then x = x + 1: Range("G" & x) = Range("A" & n) ' si client pour 1ere fois dans la liste on incrémente x et on écrit nom client en col G
Next
For k = 2 To x ' boucle sur les  lignes 2 à x
client = Range("G" & k) ' récupére nom du client en G
donnees = ""
For j = 6 To 14 ' boucle sur les lignes 6 à 14
If Range("A" & j) = client Then donnees = donnees & Chr(10) & Range("B" & j) 'si nom du client en col A on ajoute la valeur en B à la variable donnes aprsè un saut de ligne
Next j
Range("H" & k) = donnees ' Recopie donnees en col H
Next k
End Sub