Bonjour,
Voici un essai avec une fonction personnalisée :
Function JOINDRE(Liste As Range) As String
JOINDRE = Join(Application.Transpose(Liste), "-") 'séparées par tiret
'JOINDRE = Join(Application.Transpose(Liste), Chr(10)) 'avec retour à la ligne
End Function
A saisir ensuite comme ceci sur feuille :
=JOINDRE(AJ2:AVZ2)
Cdlt,
Edit : Mince, je viens de voir que vous avez 365. Je n'ai pas 365 mais je crois qu'il existe dejà ce genre de fonctions ?!
=JOINDRE.TEXTE("-";true;AJ2:AVZ2)