Bonjour,

J'ai créé ce bout de code qui me permet de sélectionner une cellule à partir d'une donnée saisie dans une InputBox et ça marche. Mais je souhaite y ajouter un code qui me permettrait de sélectionner la ligne correspondant à cette cellule et de la colorer en jaune.
Par exemple cellule A15 est trouvée, alors la ligne 15 est colorée en jaune.
Merci par avance pour votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton13_Click()
Dim vVal As Single
Dim vCell As Object
Dim vSel As String
Dim vLig As Long
Range("A12").Select
vVal = Val(InputBox("Quel enregistrement cherchez-vous ?"))
Range("A13:A199").Cells.Select
For Each vCell In Selection
    If vCell.Value = vVal Then vSel = vSel & vCell.Address & ","
    Next
    If Len(vSel) > 0 Then
    Range(Left(vSel, Len(vSel) - 1)).Select
    Selection.Activate
    End If
End Sub