Sub trouvetout()
Dim trouve As Range
With Feuil1.[a:a]
Set trouve = .Find("COURSE N", LookIn:=xlValues, lookat:=xlPart)
If Not trouve Is Nothing Then
ad = trouve.Address
Do
trouve.Offset(2, 0).Copy Feuil2.[a65000].End(xlUp)(2)
Set trouve = .FindNext(trouve)
Loop While Not trouve Is Nothing And trouve.Address <> ad
End If
End With
End Sub
Sub trouvetout()
Dim trouve As Range
If Feuil1.[a1] <> "" Then Feuil1.[a1].Insert shift:=xlDown
With Feuil1.[a1:a2000]
Set trouve = .Find("COURSE N", LookIn:=xlValues, lookat:=xlPart)
If Not trouve Is Nothing Then
ad = trouve.Address
Do
trouve.Offset(2, 0).Copy Feuil2.[a65000].End(xlUp)(2)
Set trouve = .FindNext(trouve)
Loop While Not trouve Is Nothing And trouve.Address <> ad
End If
End With
End Sub