'- en haut du code de l'userform
Dim ListViewActif As Boolean
'- début du code UserForm_Initialize
Private Sub UserForm_Initialize()
ListViewActif = False
. . .
'- à chaque Sub de ListView concerné ! (exp ici ListView1)
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
If ListViewActif = False Then Exit Sub
. . .
Private Sub ListView1_DblClick()
If ListViewActif = False Then Exit Sub
. . .
'- ensuite à toi de voir avec ton bouton pour remettre à True exemple
Private Sub ButtonActiveListView()
ListViewActif = True
End Sub