Sub Test()
Dim r As Range, derlig As Long, plage As Range
With Sheets("Transfère")
For Each r In .[A11:L125].Rows
If Application.Sum(r) Then derlig = r.Row
Next
If derlig = 0 Then MsgBox "Bof...": Exit Sub
Set plage = .Range("A11:L" & derlig)
.Activate 'en VBA normalement c'est inutile
plage.Copy
'---etc---
End With
End Sub