Remplir plusieurs feuilles à partir d'une liste déroulante

Bonjour,

je souhaite modifier la macro pour remplir les valeurs en fonction de la catégorie.

j'aimerais mettre deux catégories dans même feuille (facture et A terme), et la troisième catégorie (Espèces) dans feuille seule

voila le code

Sub Valider2()
Dim i As Integer, MaLigne As Integer
With Sheets("Especes" & Range("A11"))
Set ws = ThisWorkbook.Worksheets("Tableau de Bord")
    MaLigne = .Range("C" & Rows.Count).End(xlUp).Row + 1
     .Range("A" & MaLigne) = Range("B17") 'Date
     .Range("B" & MaLigne) = Range("C17") 'Produit
     .Range("C" & MaLigne) = Range("D17") 'Quantité
     .Range("D" & MaLigne) = Range("E17") 'Prix
     .Range("E" & MaLigne) = Range("F17") 'Montant
     .Range("F" & MaLigne) = Range("G17") 'Client
     .Range("H" & MaLigne) = Range("H17") 'delai
     .Range("I" & MaLigne) = Range("I17") 'Mode

    '.Select
End With
    Range("B17:J17").SpecialCells(xlCellTypeConstants, 23).ClearContents 'Supprimer valeur mais pas la formule

plus explication dans le fichier joint.

Merci de votre aide.

cordialement.

Bonjour,

Un exemple à étudier.

Attention au nombre de styles !?

Cdlt.

BONJOUR LE FORUM

Bonjour Jean-Eric

vous avez bien compris mon idée, et tout ce que je veux dans la solution proposée par vous

et vous êtes reconnaissant pour votre aider .

mais ... J'ai un problème avec l'objet étrange nommé .ListObjects

J'ai essayé plusieurs fois de le traiter ... de copier ....d'adapter ... sans résultat.

Donc s'il vous plaît faites-moi une macro sans ListObjects.

Avez-vous une solution plus facile?

je vous remercie beaucoup de toute votre aide.

amicalement