Salut avalran, Salut Pedro22,
voici une fonction personalisée
Function Entete(Plage As Range, Resultat As Range)
Dim n As Byte, i As Byte, Out()
Dim myArr
myArr = Plage
ReDim Out(1 To UBound(myArr, 2))
For n = 1 To UBound(myArr, 2)
If myArr(1, n) = "" Then i = i + 1: Out(i) = Resultat(n)
Next
ReDim Preserve Out(1 To i)
Out = Out
Entete = Join(Out, " ,")
End Function
Formule dans B2
=Entete(C2:K2;$C$1:$K$1)
Bonne journée