Rafraichir Combobox

Private Sub V1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If V1.ListIndex = -1 Then Exit Sub ' pas de sélection
If V1.Locked = True Then Exit Sub ' comme p2 a été modifié, il faut relancer l'userform
Sheets("Saisie Matches").Range("B7") = V1
With P2
For i = .ListCount - 1 To 0 Step -1 ' quand on supprime il est préférable _
de commencer par la fin.
    If V1 = P2.List(i) Then
        P2.RemoveItem (i) ' suppression
        Exit For ' on sort
    End If
Next i
End With
V1.Locked = True ' on empèche l'utilisation
End Sub

Private Sub UserForm_Initialize()
Dim i As Byte
With Sheets("Saisie Matches")
Sheets("Saisie Matches").Range("B7") = ""
ReDim tablo2(0 To 5)
For i = 30 To 35
    If .Range("c" & i) <> "" Then V1.AddItem .Range("c" & i)
    If .Range("g" & i) <> "" Then tablo2(i - 30) = .Range("g" & i)
    
    'P2.AddItem
Next i

For i = 0 To V1.ListCount
    For j = i + 1 To V1.ListCount - 1
        If V1.List(i) > V1.List(j) Then
            temp = V1.List(j)
            V1.List(j) = V1.List(i)
            V1.List(i) = temp
        End If
    Next j
Next i


For i = 0 To UBound(tablo2)
    For j = i + 1 To UBound(tablo2) - 1
        If tablo2(i) > tablo2(j) Then
            temp1 = tablo2(j)
            tablo2(j) = tablo2(i)
            tablo2(i) = temp1
        End If
    Next j
Next i
'P2.List = tablo2

TextBox1.Value = Sheets("Saisie Matches").Range("D7")
'TextBox9.Value = Sheets("Saisie Matches").Range("J7")
'Sheets("Saisie Matches").Range("D7") = TextBox1.Value
End With
End Sub





Private Sub V1_Enter()
P2.List = tablo2
End Sub

Private Sub V1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If V1.ListIndex = -1 Then Exit Sub ' pas de sélection
Sheets("Saisie Matches").Range("B7") = V1

With P2
.Clear
For i = LBound(tablo2) To UBound(tablo2)
    If V1 = tablo2(i) Then
    Else
     If tablo2(i) <> "" Then P2.AddItem tablo2(i)
    End If
Next i
End With

End Sub