Bonjour,
Il ne faut pas lire directement dans les listbox > mais lire la ligne de la feuille représentée par la ligne sélectionnée dans la listbox ...
Un essai ...
Private Sub BtnModifCommande_Click()
Dim X As Integer ' integer = max 32768 lignes, pour plus utiliser Long
With Worksheets("bdd1")
X = LBxCommande.ListIndex + 2
ModifCommande.TxtBDesignationProduit = .Cells(X, "A")
ModifCommande.TxtBDestinataire = Cells(X, "B")
ModifCommande.CbBSite = Cells(X, "C")
ModifCommande.TxtBFournisseur = Cells(X, "D")
ModifCommande.CbBEtatlivraison = Cells(X, "E")
ModifCommande.CbBServiceFait = Cells(X, "F")
ModifCommande.TxtBNumDA = Cells(X, "G")
ModifCommande.TxtBDateDA = Cells(X, "H")
ModifCommande.TxtBDV = Cells(X, "i")
ModifCommande.TxtBNumBC = Cells(X, "J")
ModifCommande.TxtBDateBC = Cells(X, "K")
ModifCommande.TxtBDateL = Cells(X, "l")
ModifCommande.CbBConfirmCommande = Cells(X, "M")
End With
ModifCommande.Show
End Sub
ric