envoyer des donner dans un autre classeur

Private Sub CommandButton2_Click()
 Dim Derli As Byte 'changer le type en fonction du nombre de lignes
 
    If msgbox("Êtes-vous sûr de vouloir ajouter cette dépense ?", vbYesNo, "Ajouter un nouveau formateur ?") = vbYes Then
    If sup = vbCancel Then Exit Sub
  With Sheets("Dépense")
    Derli = .[A256].End(xlUp).Row + 1
    .Cells(Derli, 1) = Application.WorksheetFunction.Max(.Range("A:A")) + 1
    .Cells(Derli, 2) = ComboBoxprestataire
         .Cells(Derli, 3) = txtmontant
         .Cells(Derli, 4) = ComboBoxtva
         .Cells(Derli, 5) = txtttc
    .Cells(Derli, 6) = ComboBoxtype
    .Cells(Derli, 9) = ComboBoxmois
    .Cells(Derli, 10) = txtanne
          End With
      UserForm_Initialize
  End If
End Sub