Private Sub CLsF_ChangeStop(ByVal CBM As ComboBoxMmbr)
If Not CBM.CBx Is Me.CBxFournisseur Then Exit Sub
AppelF Me.CBxFournisseur.Text
End Sub
If LCouF > 0 Then
TVLA(1, 11) = TVLF(1, 16)
TVLA(1, 12) = TVLF(1, 17)
TVLA(1, 13) = TVLF(1, 18)
End If