bonjour,
avec excel2020, cela sera difficile parce qu'on ne sait pas combien de lignes, qu'on doit réserver pour le résultat
en jaune pour excel >=2021-365 (mais c'est aussi possible avec les nouvelles formules)
en vert pour excel moins récent
Function lbossos(plage)
If plage.Rows.Count <> 2 Then lbossos = "erreur": Exit Function
aa = plage.Value
For i = 1 To UBound(aa, 2)
If aa(2, i) > 0 Then s = s & WorksheetFunction.Rept(aa(1, i) & vbLf, aa(2, i))
Next
lbossos = Application.Transpose(Split(Left(s, Len(s) - 1), vbLf))
End Function