<p><strong>Excel 365 :</strong></p>
<pre><code class="lang-auto">=JOINDRE.TEXTE(", ";VRAI;A1:A10)
</code></pre>
<p>(en anglais : <code>TEXTJOIN</code>)</p>
<p><strong>Versions antérieures :</strong></p>
<pre><code class="lang-auto">=A1&", "&A2&", "&A3
</code></pre>
<p><strong>VBA :</strong></p>
<pre data-code-wrap="vba"><code class="lang-vba">Function Concatener(rng As Range, sep As String) As String
Dim cell As Range
For Each cell In rng
If cell.Value <> "" Then
Concatener = Concatener & cell.Value & sep
End If
Next
' Supprimer le dernier séparateur
If Len(Concatener) > 0 Then
Concatener = Left(Concatener, Len(Concatener) - Len(sep))
End If
End Function
</code></pre>