Private Sub CommandButton1_Click()
[B][COLOR=blue]Static[/COLOR][/B] L As Integer
With Feuil1
Do While .[C1].Offset(L).Value <> "oui" And L <= 69
L = L + 1
Loop
If L = 70 Then
CommandButton1.Caption = "Fini"
Else
TextBox1 = .[A1].Offset(L).Value
TextBox2 = .[B1].Offset(L).Value
CommandButton1.Caption = "Suivant"
L = L + 1
End If
End With
End Sub