Function ConcatPlage(plage As Range, séparateur As String) As String
Dim rep As String, c As Range
For Each c In plage
If c.Value > 0 Then
rep = rep & c.Value & séparateur
End If
Next c
ConcatPlage = Left(rep, Len(rep) - Len(séparateur))
End Function