XL 2019 Copie en VBA

[eduraiss]

Bonjour le forum

Voila, il me faudrait si possible un code VBA et pas une formule une automatisation me permettant de faire une copie d'une feuille" BASE" vers d'autres feuilles suivant un numéro 1 ou 2 ou 3

Je ne suis pas très clair , je joins un fichier avec les explications

Merci à vous

 

[Jacky67]

Bonjour,
Une proposition en pj avec ce code

Sub eric()
    Dim Plage
    Application.ScreenUpdating = False
    Feuil3.Range("b4:h" & Rows.Count).Clear: Feuil4.Range("b4:h" & Rows.Count).Clear: Feuil2.Range("b4:h" & Rows.Count).Clear
    Set Plage = Feuil1.Range("A4:h" & Feuil1.Cells(Feuil1.Rows.Count, "B").End(xlUp).Row)
    Plage.AutoFilter Field:=1, Criteria1:="1"
    Plage.Offset(, 1).Resize(, Plage.Columns.Count - 1).SpecialCells(xlCellTypeVisible).Copy Feuil3.[b4]
    Plage.AutoFilter Field:=1, Criteria1:="2"
    Plage.Offset(, 1).Resize(, Plage.Columns.Count - 1).SpecialCells(xlCellTypeVisible).Copy Feuil4.[b4]
    Plage.AutoFilter Field:=1, Criteria1:="3"
    Plage.Offset(, 1).Resize(, Plage.Columns.Count - 1).SpecialCells(xlCellTypeVisible).Copy Feuil2.[b4]
    Plage.AutoFilter
End Sub

 

[eduraiss]

Re bonjour le forum
Bonjour jacky67
Merci beaucoup c'est exactement ce qu'il me fallait
Cordialement,