Générer une chaine en fonction de 2 colonnes

Bonjour à tous,

Je souhaite avoir un coup de main pour la création d'une macro qui permettrait de générer dans une cellule une chaine de caractère après lecture de 2 colonnes.

Mon exemple :

A B

1 ref1 oui

2 ref2 oui

4 ref90 non

5

6

7 ref91 non

8

9 ref99 oui

le but est générer la chaîne de caractère avec les valeurs de le colonne A en fonction de la colonne B et si la valeur dans la cellule de B = oui, séparées par des virgules.

le résultat de la chaîne a générer avec les valeurs à oui dans la colonne B serait le suivant : ref1,ref2,ref99

Vous vous en doutez je débute. merci par avance pour votre aide.

Très bonne journée.

Bonjour et bienvenu

ci dessous une proposition

resultat stocké dans la cellule E2

fred

Sub concatene()
Dim i As Integer
Dim liste As String

For i = 2 To [B65536].End(xlUp).Row
    If Cells(i, "B") = "Oui" Then liste = liste & Cells(i, "A") & ","
Next i
[E2] = Mid(liste, 1, Len(liste) - 1)
End Sub

Super. merci beaucoup... Fonctionne à merveille