Pour le fun, et pour garder les mains dans les poches
VB:
Sub Pas_à_la_mimine()
Dim anche, a_Bamako$
If Selection.Columns.Count > 1 Then Exit Sub
anche = Application.Transpose(Selection)
a_Bamako = Join(anche, "-")
Selection.Item(1).Offset(, 1) = a_Bamako
End Sub
Mettre des données dans une colonne, puis sélectionner ces données (une seule colonne)
Enfin, lancer cette petite macro et observer le résultat