Function CONCATV(plage As Variant) As String
Set plage = Intersect(plage, ActiveSheet.UsedRange)
plage = Application.Transpose(plage)
CONCATV = Replace(Application.Trim(Join(plage)), " ", ";")
End Function
Function CONCATH(plage As Variant) As String
Set plage = Intersect(plage, ActiveSheet.UsedRange)
plage = Application.Transpose(plage)
plage = Application.Transpose(plage)
CONCATH = Replace(Application.Trim(Join(plage)), " ", ";")
End Function