Formulaire de saisie/modification et tableau structuré

Vous pouvez essayer de remplacer les instructions :

    Set LigneExistante = tbl.ListColumns("Nom Prénom").DataBodyRange.Find(What:=Nom, LookIn:=xlValues)
    If Not LigneExistante Is Nothing Then
        i_tbl = LigneExistante.Row - tbl.HeaderRowRange.Row

par :

Private Sub cboNom_Click()
    Dim Nom As String

    ' définir la variable
    Nom = Me.cboNom.Value

    ' affiche la ligne correspondant au tableau
    On Error Resume Next
    i_tbl = Application.Match(Nom, tbl.ListColumns("Nom Prénom").DataBodyRange, 0)
    On Error GoTo 0
    If i_tbl <> 0 Then
        With tbl
            ..............