Dim i As Integer
Dim Reponse As Integer
For i = 1 To Workbooks.Count * 2
If i = Workbooks.Count Then i = 0
If i > Workbooks.Count Then i = 0
i = i + 1
Workbooks(i).Activate
Reponse = MsgBox("Est-ce le bon classeur ?", vbYesNo)
If Reponse = 6 Then '=yes
Exit Sub
End If
Next
End Sub