Function z$()
z = toto(Array(Array("Feuil1", "B", 1), Array("Feuil2", "E", -3), Array("Feuil3", "C", -1)))
'paramètres à adapter en fonction des plages à traiter.
'Array("Nom_d'onglet", "Colonne_des_oui/non", décalage_de_la_colonne_des_données_relativement_à_la_colonne_des_oui/non)
End Function
Private Function toto$(z)
Dim i&, tmp$, oCell As Range, oPlg As Range
For i = 0 To UBound(z)
With Sheets(z(i)(0))
Set oPlg = .Range(.Range(z(i)(1) & "1"), .Range(z(i)(1) & CStr(.Rows.Count)).End(xlUp))
For Each oCell In oPlg.Cells
If UCase(oCell.Value) = "OUI" Then tmp = tmp & oCell.Offset(0, z(i)(2)) & ", "
Next
End With
Next
If tmp <> "" Then toto = Left$(tmp, Len(tmp) - 2)
End Function