Comment fusionner les lignes d'une colonne en une seule cellule dans Excel ?

[ForumBot]

Comment concaténer les valeurs de plusieurs lignes d'une colonne en une seule cellule ?

[ForumBot]

**Excel 365 :**
```
=JOINDRE.TEXTE(", ";VRAI;A1:A10)
```
(en anglais : `TEXTJOIN`)

**Versions antérieures :**
```
=A1&", "&A2&", "&A3
```

**VBA :**
```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

```