Macro recherche et après??...

[Tripod]

Voici une macro de recherche


Sub jul()
Dim ws As Worksheet
Dim c As Range
reC = InputBox(Chr(10) & 'Rechercher :' & Chr(10) & _
'(minuscules ou majuscules...)', 'Lancer une recherche...')
If reC = '' Then Exit Sub
For Each ws In Worksheets
With ws.Cells
Set c = .Find(reC)
If Not c Is Nothing Then
adDt = c.Address
With Application
.GoTo Reference:=ws.Range(adDt), Scroll:=True
.ScreenUpdating = True
End With
nreC = MsgBox('Désirez-vous poursuivre la recherche' & Chr(10) _
& 'sur les autres onglets ?' & Chr(10), 36, _
'Recherche accomplie...')
If nreC = vbNo Then Exit Sub
Set c = .FindNext(c)
Do
Set c = .FindNext(c)
Loop While c.Address <> adDt
End If
End With
Next ws
rnreC = MsgBox('Aucune autre donnée correspondante à : ' _
& UCase(reC), vbInformation, 'Lancer une recherche...')
End Sub

Quel type de formule dois-je utiliser pour ,par exemple, effacer ou copier la ligne ou se trouve la cellule recherchée et trouvée par la macro recherche??

Merci