Sub Select_01()
Dim C As Range, Resultat As Range, CAdress As String
Application.ScreenUpdating = False
With Sheets("Feuil1").Range("H2:H5000")
Set C = .Find(0, LookIn:=xlValues)
If Not C Is Nothing Then
CAdress = C.Address
Set Resultat = C.Offset(0, -3)
Do
Set C = .FindNext(C)
Set Resultat = Application.Union(Resultat, C.Offset(0, -3))
Loop While Not C Is Nothing And C.Address <> CAdress
End If
Resultat.Select
End With
Application.ScreenUpdating = True
End Sub