Sub EssaiFind2()
Dim R As Range, TotFind As Long, SuiteAdres As String
Range("A1").Select
With Cells
Set R = .Find(What:="=ROW()", After:=ActiveCell, LookIn:=xlFormulas, _
lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False)
If Not R Is Nothing Then
SuiteAdres = R.Address
Do: TotFind = TotFind + 1: Set R = .FindNext(R)
Loop While Not R Is Nothing And R.Address <> SuiteAdres
End If
End With
MsgBox TotFind
End Sub