interdire la sélection d'un item de la listebox1 si celui-ci ne figure pas dans la listbox2

For i = 0 To Me.Main.ListCount - 1
            If Me.Main.List(i, 1) = Me.Dest.List(Dest.Listindex, 0) Then n = n + 1
Next i
if n=0 then
MsgBox " vous ne pouvez pas sélectionner ce sauveteur "
Dest.selected(Dest.listindex)=false
end if

Private Sub Dest_MouseUp1(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim i&, a&, n&
    For a = Me.Main.ListCount - 1 To 0 Step -1 'boucle dans la listbox Main
      For i = 0 To Me.Main.ListCount - 1 'donne la valeur de i en partant de 0 au nb item de Main
        If Me.Main.List(i, 1) = Me.Dest.List(Dest.List.ListIndex, 0) Then n = n + 1 'vérifie la concordance entre les 2 listbox et indique avec n l'emplacement de l'item Dest à traiter
      Next i
        If n = 0 Then 'si item non trouvé alors affichage du msg
            MsgBox " vous ne pouvez pas sélectionner ce sauveteur "
            Dest.Selected(Dest.ListIndex) = False
        End If
    Next a
End Sub

Private Sub Dest_MouseUp1(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim i&, n&
For i = 0 To Me.Main.ListCount - 1
'Main est en col 2 et Dest en col 1
            If Main.List(i, 1) = Dest.List(Dest.List.Listindex, 0) Then n = n + 1
Next i
if n=0 then
 MsgBox " vous ne pouvez pas sélectionner ce sauveteur "
Dest.selected(Dest.listindex)=false
end if
End sub

Private Sub Dest_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim i&, t, j&, flag As Boolean
For i = 0 To Dest.ListCount - 1
    If Dest.Selected(i) Then
        t = Dest.List(i, 1) 'en 2ème colonne ???
        For j = 0 To Main.ListCount - 1
            If Main.List(j, 0) = t Then flag = True: Exit For
        Next j
        If Not flag Then
            Dest.Selected(i) = False 'désélectionne
            MsgBox "Vous ne pouvez pas sélectionner ce sauveteur" 'inutile, on voit bien que la sélection est impossible...
        End If
        flag = False
    End If
Next i
End Sub

Private Sub UserForm_Initialize()
Main.List = [A1:A4].Value
Dest.List = [C1:D4].Value
End Sub

Private Sub Dest_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim i&
For i = 0 To Dest.ListCount - 1
    If Dest.Selected(i) Then
        If Not d.exists(Dest.List(i, 1)) Then
            Dest.Selected(i) = False 'désélectionne
            MsgBox "Vous ne pouvez pas sélectionner ce sauveteur" 'inutile, on voit bien que la sélection est impossible...
        End If
    End If
Next i
End Sub

Private Sub Dest_MouseUp1(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim i&, n&
For i = 0 To Me.Main.ListCount - 1
'Main est en col 1 et Dest en col 2
            If Main.List(i, 0) = Dest.List(Dest.List.Listindex, 1) Then n = n + 1
Next i
if n=0 then
 MsgBox " vous ne pouvez pas sélectionner ce sauveteur "
Dest.selected(Dest.listindex)=false
end if
End sub