Bonjour à tous

Voici mon souci :
a) Je cherche une valeur dans une plage de cellule (la colonne A)
b) dès qu'elle est trouvée, j'aimerais me positionner dessus car ensuite, je devrais insérer des données dans 10 colonnes à sa droite

Je sais trouver cette cellule mais je ne sais pas me positionner dessus (aevc activecell, je ne me positionne que sur la dernière cellule selectionée dans la feuille)
(j'ai fait quelques essais pour récupéer les adresses avec des msgbox)

comment faire ?

merci pour votre aide :

Private Sub modifier_Click()
Sheets("ListeClients").Select
Dim Msg As Integer
Dim L As Integer
Dim Plage As Range
Dim Cell As Range


Dim clientmodifie As String
clientmodifie = genre & " " & prenom & " " & nom


'on recherche à remplacer par le code client qui se situe dans la colonne A
L = Sheets("ListeClients").Range("A65536").End(xlUp).Row
Set Plage = Sheets("ListeClients").Range("a2:a" & L)


For Each Cell In Plage
'MsgBox L
'MsgBox Cell.Value
'MsgBox code_client

If Cell.Value = code_client Then
MsgBox Cell.Address
MsgBox Range(Cell.Address).Value
MsgBox ActiveCell.Address


Msg = MsgBox("Modifier la fiche de : " & Chr(10) & clientmodifie, vbYesNo, "Confirmer la modification ?")
    If Msg = 6 Then
 

'********************
'il faut sélectionner la celulle trouvée pour coller la valeur d'un textbox code_client
'et c'est là que ça marche pas ...

'*********************
'Cell.Value.Offset(0, 0).Select
ActiveCell.Value = Val(code_client)

Else:
    MsgBox "rien modifié"
    Exit Sub
    End If
Else

End If
Next Cell

Unload FicheClient_modification
FicheClient_modification.Hide
End Sub

Configuration: Windows 2000
Firefox 2.0.0.2