Copier infos selon n° de client

Voilà avec le test et la remise à "Non" :

Sub Enregistrer()

    Dim FeFacture As Worksheet
    Dim FeClients As Worksheet
    Dim Tbl
    Dim Lig As Long
    Dim I As Integer

    Set FeFacture = Worksheets("Facture")
    Set FeClients = Worksheets("Listings_clients")

    'il est préférable de bien être sûr que "Oui" est entré dans la cellule
    If UCase(FeFacture.Range("Q9").Value) = "OUI" Then

        'recherche de la première ligne vide dans la base de données
        With FeClients: Lig = .Cells(.Rows.Count, 1).End(xlUp).Row + 1: End With 'sur colonne A

        'comme les cellules cible ne se suivent pas, inscrit dans un tableau le numéro des colonnes
        Tbl = Array(3, 4, 5, 7, 10, 11, 13, 14, 16)

        'comme les colonnes ne se suivent pas, une boucle est nécessaire pour la récup des valeurs
        For I = 0 To UBound(Tbl)

            FeClients.Cells(Lig, I + 2).Value = FeFacture.Cells(14, Tbl(I)).Value

        Next I

        'incrémente le numéro client par rapport à la valeur de la cellule du dessus
        FeClients.Cells(Lig, 1).Value = FeClients.Cells(Lig - 1, 1).Value + 1

        'remet à "Non"
        FeFacture.Range("Q9").Value = "Non"

    End If

End Sub

Je vais essayer d'être le plus simple possible essayer je dit bien !

La macro doit enregistrer les infos de la page Facture, dans la basse de données Facturier_2018 ET Devis_2018

Je commence par une condition : si la case E10 (page Facture) = à Devis

Alors il copie les infos ci dessous dans la page Devis_2018

(il y à une mise en forme sur la page Facture qui bouge les données inutile à ne pas remplir en mode devis)

A copier de la page Facture à la page Devis_2018 :

C14 = nom -> colonne F

D14 = prénom -> colonne G

E14 = nom société -> colonne H

G14 = Rue et n° -> colonne I

J14 = CP -> colonne J

K14 = ville -> colonne K

M14 = tel ->colonne L

N14 = mail -> colonne M

P14 = N° tva -> colonne N

E10 = mode papier -> colonne A

I10 = Type -> colonne E

E16 = montant acompte -> colonne BD

P24 = Date devis -> colonne C

I16 = date de fin -> colonne D

P21 = N° devis -> colonne B

N29 = total -> BC

D19 = intitulé1 -> colonne O

L19 = Qts1 -> colonne P

M19 = montant1 -> colonne Q

N19 = total1 -> colonne R

D20 = intitulé2 -> colonne S

L20 = Qts2 -> colonne T

M20 = montant2 -> colonne U

N20 = total2 -> colonne V

D21 = intitulé3 -> colonne W

L21 = Qts3 -> colonne X

M21 = montant3 -> colonne Y

N21 = total3 -> colonne Z

D22 = intitulé4 -> colonne AA

L22 = Qts4 -> colonne AB

M22 = montant4 -> colonne AC

N22 = total4 -> colonne AD

D23 = intitulé5 -> colonne AE

L23 = Qts5 -> colonne AF

M23 = montant5 -> colonne AG

N23 = total5 -> colonne AH

D24 = intitulé6 -> colonne AI

L24 = Qts6 -> colonne AJ

M24 = montant6 -> colonne AK

N24 = total6 -> colonne AL

D25 = intitulé7 -> colonne AM

L25 = Qts7 -> colonne AN

M25 = montant7 -> colonne AO

N25 = total7 -> colonne AP

D26 = intitulé8 -> colonne AQ

L26 = Qts8 -> colonne AR

M26 = montant8 -> colonne AS

N26 = total8 -> colonne AT

D27 = intitulé9 -> colonne AU

L27 = Qts9 -> colonne AV

M27 = montant9 -> colonne AW

N27 = total9 -> colonne AX

D28 = intitulé10 -> colonne AY

L28 = Qts10 -> colonne AZ

M28 = montant10 -> colonne BA

N28 = total10 -> colonne BB

56 cellules.

PS : le n° du devis/facture augmente déjà de 1 via une formule annexe donc il faut juste la copier, et que sa arrive à la dernière ligne vide.

Si trop énorme à faire, dit le moi ou comme dit tout à l'heure juste le début que je puisse moi même au pire le terminer en indiquant chaque copie de cellule car j'avoue que j'en demande beaucoup :/

Ici ce n'est que pour la page "Devis"

Pour la page "Facture" Il restera non 56 cellules mais 80 je pense à faire pareils mais chaque choses à la fois...