Option Explicit
Public WithEvents cmdBtn As MSForms.CommandButton
Private Sub cmdBtn_Click()
Dim ligne&, wsN$
wsN = cmdBtn.Parent.Name
ligne = cmdBtn.TopLeftCell.Row
With Sheets(wsN)
.Cells(ligne, "B").Resize(, 2) = .Cells(ligne, "J").Resize(, 2).Value
.Range("A1:A37").Borders(10).Weight = -4138
.Range("C1:C37").Borders(10).Weight = -4138
End With
End Sub