Dim v$, c As Range 'mémorise les variables
Private Sub CommandButton1_Click() 'bouton Suivant
If ListArt = "" Then TextBox1 = "": Exit Sub
If ListArt <> v Or c Is Nothing Then v = ListArt: Set c = [B1]
Set c = Columns("B").Find(ListArt, c, xlValues, xlWhole)
If c Is Nothing Then MsgBox "'" & ListArt & "' n'existe pas en colonne B...": TextBox1 = "": Exit Sub
TextBox1 = c(1, 7)
End Sub