Private Sub nomclt_Change()
numclt.ListIndex = nomclt.ListIndex
GarnirChamps numclt.ListIndex + 1
End Sub
Private Sub numclt_Change()
nomclt.ListIndex = numclt.ListIndex
GarnirChamps numclt.ListIndex + 1
End Sub
Private Sub GarnirChamps(ByVal NoLgn as Long)
Dim TV() As Variant
If NoLgn < 1 Then
Rem effacement des champs
Else
TV = Feuil2.[fichclt].Rows(NoLgn).Value
Adresse = TV(1, 3)
etc.