Bonjour Dranreb désolé de n'avoir pu travailler sur le sujet ce week end, 3ans de mes loulou donc week très chargé.
Alors si j'ai bien compris dans un premier temp tu attend ce type d'écriture, je n'ai pas encore changé les format numérique car je n'ai pas tout assimilé a ton dernier post
Private Sub CBnValiderF_Click()
TVLF(1, 3) = CCur(Me.CBxGroupe.Text)
TVLF(1, 4) = CCur(Me.TxtAdresse.Text)
TVLF(1, 5) = CCur(Me.TxtCP.Text)
TVLF(1, 6) = CCur(Me.TxtVille.Text)
TVLF(1, 7) = CCur(Me.TxtPays.Text)
TVLF(1, 8) = CCur(Me.TxtNom.Text)
TVLF(1, 9) = CCur(Me.TxtPrénom.Text)
TVLF(1, 10) = CCur(Me.TxtTel.Text)
TVLF(1, 11) = CCur(Me.TxtFax.Text)
TVLF(1, 12) = CCur(Me.TxtPortable.Text)
TVLF(1, 13) = CCur(Me.TxtEmail.Text)
TVLF(1, 14) = CCur(Me.TxtSiteinternet.Text)
TVLF(1, 15) = CCur(Me.TxtCréele.Text)
TVLF(1, 16) = CCur(Me.CBxDelaislivraison.Text)
TVLF(1, 17) = CCur(Me.CBxFraistransport.Text)
TVLF(1, 18) = CCur(Me.CBxFacturation.Text)
TVLF(1, 19) = CCur(Me.TxtNote.Text)
If LCouF = 0 Then
CLsF.ValeursVers TVLF
CLsF.Lignes.Add.Range.Value = TVLF
CLsF.Actualiser
Rem. Refaire un Dictionary ? Refiltrer quelque chose ? On verra !
Else
CLsF.Lignes(LCouF).Range.Value = TVLF
End If
End Sub