Private Sub CommandButton1_Click()
Dim DerLigne As Long
'Dim k As Byte
'Dim Concat As String
If Cbx1.Value = "" Then Exit Sub
With Sheets("Pièces")
If .Range("C12") = "" Then
DerLigne = .Range("C12").Row
Else
DerLigne = .Range("C65536").End(xlUp).Row + 1
End If
'For k = 1 To 8
'Concat = Concat & Controls("cbx" & (k)) & "+"
'Next
'.Range("C" & DerLigne) = Left(Concat, Len(Concat) - 1)
.Range("C" & DerLigne) = Cbx1 & "+" & Cbx2 & "+" & Cbx3 & "+" & Cbx4 & "+" & Cbx5 & "+" & Cbx6 & "+" & Cbx7 & "+" & Cbx8
End With
Unload Me
End Sub