Salut
Je m'intéressait au sujet et
J'ai tapé ce code, et chez moi ça marche bien.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range('O6')) Is Nothing Then
UserForm1.Show
End If
End Sub
Qu'est -ce que ça donne chez toi ?
le simple userform.show, sans condition, marche-t-il ?