Copie ligne dans un autre feuille

[jacks]

Bonjour a tous et à toutes
Besoin d’ aide SVP
j’ ai besoin d’un formule qui copie automatiquement, pour le donnée déjà saisie et la nouvelle saisie, la colonne designation ,sortie et entre dans la feuille details respectivement dans les feuilles a, b,c, etc (et si on saisie d ou autres dans feuille détail ; la feuille se crée automatiquement avec leur contenu dans details)
Merci de votre aide!STAT.xlsx (14,0 Ko)

[Mimimathy]

Bonjour,

A tester

La macro feuille

Private Sub Worksheet_Change(ByVal Target As Range)
'Déclaration variable
Dim Lig%, Dl%, Design$
Dim F As Worksheet
On Error Resume Next 'Evite le bug des erreurs
  'si des valeurs changes=nt dans les colonnes E ou F
  If Not Application.Intersect(Target, Range("E2:F65000")) Is Nothing Then
    Lig = Target.Row 'N° ligne
    Design = Cells(Lig, 3) 'Nom de la désignation'
    'si la feuille contenant la désignation n'existe pas, j'en rajoute une à la fin
    If Sheets(Design) Is Nothing Then Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Design 'Je lui donne le nom de la désignation
    Cells(1, 3).Copy Sheets(Design).Cells(1, 1) 'Je renseigne les titres
    Range(Cells(1, 5), Cells(1, 6)).Copy Sheets(Design).Cells(1, 2)
    Dl = Sheets(Design).Range("A" & Rows.Count).End(xlUp).Row + 1 ' je récupère le N° de la 1ère ligne vide
    Cells(Lig, 3).Copy Sheets(Design).Cells(Dl, 1) 'Je copie les valeurs
    Range(Cells(Lig, 5), Cells(Lig, 6)).Copy Sheets(Design).Cells(Dl, 2)
  End If
  Feuil1.Activate 'J'azctive la feuille Détail
End Sub

STAT.xlsm (25,4 Ko)

[jacks]

Merci beaucoup #Mimimathy