Private Sub CommandButton1_Click()
Dim Cel As Range, Plage As Range
With ActiveSheet
For Each Cel In ActiveSheet.Range("C1:C25")
If Cel > 0 Then
If Plage Is Nothing Then
Set Plage = .Range("A" & Cel.Row & ":E" & Cel.Row)
Else
Set Plage = Application.Union(Plage, .Range("A" & Cel.Row & ":E" & Cel.Row))
End If
End If
Next
End With
Plage.Select
End Sub