Private Sub Transferer_Click()
Dim Coche As String
Dim X As Control
If Me.ListBox1.ListIndex = -1 Then
MsgBox "Sélectionnez la ligne à transférer !"
Me.ListBox1.SetFocus
Exit Sub
End If
For Each X In Source.Controls
If X.Value Then Coche = X.Caption
Next
If Coche <> "" Then
With ActiveSheet.Range("A2:G2").Offset(ListBox1.ListIndex, 0) 'Modifier le nombre de colonne
.Copy
Sheets(Coche).Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
.Delete Shift:=xlUp
End With
UserForm_Initialize
Else
MsgBox "Cochez une destination"
Me.Source.SetFocus
End If
End Sub