Sélectionner plage sans les cellules valeur nul

Sub Transfert()
Dim rg As Range
Dim c As Range

Set rg = Range("A11") 'il faut commencer à quelque part...
For Each c In Range("A11:L" & Range("L65536").End(xlUp).Offset(0, 1).Row)
    If c.Value <> 0 Then
        Set rg = Union(rg, c)
    End If
Next c

rg.Copy [Destination] '***
End Sub

Sub test()
Dim tot As Range
For Each cel In Range("A11:L" & Range("L65536").End(xlUp).Row)
If cel.Value <> 0 And cel.Value <> "" Then
  Set tot = cel
  Exit For
End If
Next
For Each cel In Range("A11:L" & Range("L65536").End(xlUp).Row)
If cel.Value <> 0 And cel.Value <> "" Then
  Set tot = Application.Union(tot, cel)
End If
Next
tot.Select
End Sub

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