Sub selection()
Dim Cel As Range, Plage As Range
For Each Cel In ActiveSheet.Range("C1:m35")
If Cel > 0 Then
If Plage Is Nothing Then
Set Plage = Cel.EntireRow
Else
Set Plage = Application.Union(Plage, Cel.EntireRow)
End If
End If
Next
Plage.Select
End Sub