XL 2019 Fonction si choix dans une liste alors afficher montant

Private Sub ListBox1_Change()
Dim i&, x$, v
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            x = x & vbLf & .List(i, 0)
            v = v + .List(i, 1)
        End If
    Next
End With
[D6] = Mid(x, 2)
[F6] = v
End Sub

Public flag As Boolean 'mémorise la variable

Private Sub ListBox1_Change()
If flag Then Exit Sub 'variable Public dans Module1
Dim i&, x$, v
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            x = x & ", " & .List(i)
            v = v + Application.Index(Evaluate(.ListFillRange).Columns(2), i + 1)
        End If
    Next
End With
[D6] = Mid(x, 3)
[F6] = v
End Sub

Private Sub ListBox2_Change()
If flag Then Exit Sub 'variable Public dans Module1
Dim i&, x$, v
With ListBox2
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            x = x & ", " & .List(i)
            v = v + Application.Index(Evaluate(.ListFillRange).Columns(2), i + 1)
        End If
    Next
End With
[D7] = Mid(x, 3)
[F7] = v
End Sub

Private Sub Workbook_Open()
Dim i&
flag = True 'variable Public dans Module1
Application.ScreenUpdating = False
Feuil1.Activate
With Feuil1.ListBox1
    For i = 0 To .ListCount - 1
        .Selected(i) = InStr(Range("D6"), .List(i)) > 0
    Next
    .Left = Range("D6").Left
    .Top = Range("D6").Top
    .Width = Range("D6").Width
    .Height = Range("D6").Height
End With
With Feuil1.ListBox2
    For i = 0 To .ListCount - 1
        .Selected(i) = InStr(Range("D7"), .List(i)) > 0
    Next
    .Left = Range("D7").Left
    .Top = Range("D7").Top
    .Width = Range("D7").Width
    .Height = Range("D7").Height
End With
flag = False
End Sub