Simplification macro copier ligne vers autres feuilles

[Vincelbp]

Bonjour,

Dans le fichier excel ci-joint je cherche à raccourcir un groupe de macro. Mon problème est que 15 feuilles de ce fichier envois des lignes vers 6 autres feuilles en fonction du choix fait dans une liste déroulante. Une fois les données traitées sur une de ces 6 feuilles la ligne est renvoyée à la feuille expéditrice.

Voici le code que j'utilise:

Pour les 15 premières feuilles. Ce code est répété 6 fois

If Target.Value = "Jocelyne 01" Then
With Sheets("Jocelyne")
ligvide = .Range("b65536").End(xlUp).Row + 1
.Cells(ligvide, 2) = Target.Offset(0, -5).Value
.Cells(ligvide, 3) = Target.Offset(0, -4).Value
.Cells(ligvide, 4) = Target.Offset(0, -3).Value
.Cells(ligvide, 5) = Target.Offset(0, -1).Value
.Cells(ligvide, 8) = Range("a1").Value
End With
  ActiveWorkbook.Save
End If

Pour les 6 autres feuilles le code sera répété 15 fois.
J'ai peur que celà ralentisse fortement l'exécution du fichier, d'autant que 21 personnes l'utiliseront et parfois simultanément.

Merci pour vos idées

 

[Vincelbp]

Re : Simplification macro copier ligne vers autres feuilles

J'ai essayé de mettre Or dans la ligne If Target.Value = "Jocelyne 01" Then sans résultat