Discussion :

[patricktoulon]

d'accords j'avais raison de douter ,on a tout faux depuis le debus alors tu t'est tres mal expliqué au vu des ebauches que tu a montré
se sera ca alors
en reprenant l'idée de mercatog a savoir le retour a aucune couleur de la precedente recherche sans l'evenement selection_change du sheets
rien ne t'empeche de le mettre cet evenement

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
Private Sub CommandButton1_Click()
    Static Ex As Long
    Dim Var As String
    Dim c As Range
    Var = InputBox("Enter la référence")
    Set c = Range("A:A").Find(what:=Var)
    If Not c Is Nothing Then
        With Cells(c.Row, 1)
            If Ex > 1 Then Cells(Ex, 1).Interior.Color = xlNone
            Ex = c.Row
            .Select
            .Interior.ColorIndex = 8
        End With
    End If
End Sub

apres sincerement il y avais largement plus simple
a la recherche remettre tout A:A en blanc et c'est tout juste avant la mise en couleur de la cellule trouvée

comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton2_Click()
    Var = InputBox("Enter la référence")
    With Range("A:A")
        .Interior.Color = xlNone
        Set c = .Find(what:=Var)
        If Not c Is Nothing Then c.Interior.ColorIndex = 8
    End With
End Sub

[Olivierporcinet]

Merci beaucoup.

Bonne jounrée