besoin d'aide pour macro de recherche

Bonjour
J'ai réussi à faire fonctionner la macro ci-dessous, qui sélectionne la
cellule contenant
la valeur recherchée.
Mais je souhaite que ce soit la ligne entière qui soit selectionnée(mise en
surbrillance).
Je n'arrive pas à mettre la mains sur les instructions nécessaires.
Merci pour votre aide.
Nico

Sub Recherche()
Dim cell
Dim val
On Error GoTo line
debut:
val = Application.InputBox("Code à rechercher : ")
If val = "" Then GoTo line
If val = vbAnnuler Then Exit Sub
With Columns("A:D")
Set cell = .Find(val, LookIn:=xlValues)
If Not cell Is Nothing Then
firstAddress = cell.Address
Do
cell.Select
If MsgBox(" Continuer la recherche", 4, "Message") = vbNo Then GoTo debut
Set cell = .FindNext(After:¬tiveCell)
Loop While Not cell Is Nothing And cell.Address <> firstAddress
End If
End With
GoTo line
Exit Sub
line:
MsgBox " aucune valeur trouvée "
GoTo debut
End Sub

Bonjour
J'ai réussi à faire fonctionner la macro ci-dessous, qui sélectionne la
cellule contenant
la valeur recherchée.
Mais je souhaite que ce soit la ligne entière qui soit selectionnée(mise
en
surbrillance).
Je n'arrive pas à mettre la mains sur les instructions nécessaires.
Merci pour votre aide.
Nico

Sub Recherche()
Dim cell
Dim val
On Error GoTo line
debut:
val = Application.InputBox("Code à rechercher : ")
If val = "" Then GoTo line
If val = vbAnnuler Then Exit Sub
With Columns("A:D")
Set cell = .Find(val, LookIn:=xlValues)
If Not cell Is Nothing Then
firstAddress = cell.Address
Do
cell.Select
If MsgBox(" Continuer la recherche", 4, "Message") = vbNo Then GoTo debut
Set cell = .FindNext(After:¬tiveCell)
Loop While Not cell Is Nothing And cell.Address <> firstAddress
End If
End With
GoTo line
Exit Sub
line:
MsgBox " aucune valeur trouvée "
GoTo debut
End Sub