Sub TransfererItem()
Dim c As Range, wb As Workbook
Application.ScreenUpdating = False
Set c = Range("A" & ActiveCell.Row & ":BR" & ActiveCell.Row)
'ou si la dernière colonne est variable
'Set c = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 256).End(xlToLeft))
Set wb = Workbooks.Open("I:\USERS\Martine Driessen\PRIVATE\Martine\Temporaire\Plainte\Para.xlsm")
With wb
c.Copy .Sheets("Récap").Range("A65000").End(xlUp).Offset(1, 0)
.Close True
End With
ActiveSheet.Unprotect
c.EntireRow.Delete
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub