Code VBA recopier selon condition

Bonjour, mon petit programme touche à sa fin

Mais me manque un code que j'ai commencer mais qui forcément ne fonctionne pas je suis nul

Feuille : Facture

Feuille : Devis_2018

Feuille : Facture_2018

Sur la feuille Facture en cellule B24 il y à un numéro qui commence soit par F (facture) ou par D (devis) par exemple F201800001

Mon but ; recopier plusieurs cellules en recherchant le même numéro en colonne "A" (que sa soit dans facture_2018 ou devis_2018) et copier les cellule de la ligne en question. Avec comme condition : SI le numéro en B24 commence par F alors il va copier les cellules qui sont dans la feuille Facture_2018 et SI sa commence par D dans Devis_2018 ...

Données à copier : Colonne par exemple : K - L - M - N (facture_2018 ou devis_2018 ils ont la même structure)

A coller : dans B13 - C13 - G13 - H13

Sub Recopie_infos()

    Dim FeFacture As Worksheet
    Dim FeFacturier As Worksheet
    Dim FeDevis As Worksheet
    Dim Tbl
    Dim Lig As Long
    Dim I As Integer

    Set FeFacture = Worksheets("Facture")
    Set FeFacturier = Worksheets("Facturier_2018")
    Set FeDevis = Worksheets("Devis_2018") 

            If MsgBox("Continuer ?", 36, "Confirmation") = vbYes Then
    'Code à exécuter si OUI

        'condition pour qu'il recherche si sa commence par F ou par D ...'
    If UCase

Merci beaucoup

Bonjour,

Merci de joindre un fichier à ta demande.

Cdlt.

Voici

bonjour,

quelqu'un à regarder mon fichier ?

Bonjour Geoffrey027, Jean-Eric,

Je te retourne ton fichier modifié :

Ctrl r pour lancer la sub Recopie_infos()

Je te laisse faire tous les tests nécessaires

Alt F11 pour voir le code VBA, puis pour revenir sur Excel

⚠ Lis bien tous les commentaires qui sont inclus dans le code !

Si besoin, tu peux demander une adaptation.

Merci de me donner ton avis.

dhany