bonjour
c'est cette ligne qui ce met en jaune
.DataManager.Table = Range("Tableau6").ListObject
et voici toute la feuille
Option Explicit
Sub ShowTabClientForm()
With TabClient
.DataManager.Map = getMap1("TabClient")
' .ComboBox1.List = Range("Tableau6[Code Client]").Value
.DataManager.Table = Range("Tableau6").ListObject
If .DataManager.GotoRecord(1) = 0 Then
.DataManager.updateUserform
End If
.Show
End With
Unload TabClient
End Sub