Code VBA dans une plage.

Sub test()
Dim ligne As Long, lig As Integer, x As Integer
With Feuil1
lig = .Range("a65536").End(xlUp).Row
ligne = .Range("z2").Value
If .Range("z2").Value = "" Then Exit Sub
For x = 1 To 9
If .Cells(ligne, x).Value <> 1 Then
.Cells(ligne, 22).Value = .Cells(ligne, 22).Value & "-" & .Cells(ligne, x).Value
End If
Next x
.Cells(ligne, 22).Value = Mid(.Cells(ligne, 22), 2)  'Suppression du trait au début des valeurs.

If Left(.Cells(ligne, 22), 1) <> 4 Then
.Cells(ligne, 21).Value = .Cells(ligne, 22).Value
.Cells(ligne, 22).ClearContents
End If
End With
End Sub

'Et dans la feuille 1 (sans le bouton) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("z2")) Is Nothing Then Application.Goto Range("z2")
Application.EnableEvents = False
If Range("z2").Value <> "" Then
Call Concatener
Else
Exit Sub
End If
Application.EnableEvents = True
End Sub