Private Sub CmbPays_AfterUpdate()
Dim x$
x = CmbPays
If CmbPays.ListIndex <> -1 Or x = "" Then Exit Sub
If MsgBox("Voulez-vous créer le pays '" & x & "' ?", vbQuestion + vbYesNo) = 7 Then CmbPays = "": Exit Sub
CmbPays.RowSource = "" 'RAZ
With [T_Pays].ListObject.Range
IIf(.Cells(2, 1) = "", .Cells(2, 1), .Cells(.Rows.Count + 1, 1)) = x
End With
CmbPays.RowSource = "T_Pays"
End Sub