Excuse moi mais je n'arrive pas à faire marcher ton code (je dois être une grosse bille).
Voici le code dans lequel devrait normalement s'insérer ta réponse :
Private Sub ListBox1_Click()
X = ListBox1.Value
Msg = 'vous avez selectionné le site de ' & X
Ans = MsgBox(Msg, vbYesNo)
If Ans = vbNo Then
Unload UserForm1
UserForm1.Show
End If
If Ans = vbYes Then
Range('A1:A65536').Find(ListBox1.Value, lookat:=xlWhole).Select
'Unload UserForm1
'Load Etape2
'Etape2.Show
End If
End Sub
Si j'exécute la macro il y a erreur 91.
Merci par avance, (ça donne espoir de trouver des gens qui aident).