XL 2019 Ventilation de données vers plusieurs feuilles à partir d'une feuille-source

[DJISA]

Je voudrais ventiler les données qui se trouvent dans la feuille "idconel" vers les autres feuilles qui seront créées par une boucle. La sélection des feuilles se fera à partir de la derniere colonne de la feuille "idconel". Dans cette colonne figurent le noms des feuilles vers lesquelles les données doivent être ventilées.
L'idée ici est à chaque fois qu'une nouvelle donnée est enregistrée dans la feuille "idconel", ici la feuille-source, qu'on efface les données déjà ventilées avant faire faire un nouveau collage pour assurer la mise à jour.
Pour celà nous avons réalisé le code ci-dessous mais le problème est que non seulement les données ne sont pas ventilées la feuille source "idconel" s'effacent.
Ci-joint le fichier

Dim j As Integer
Dim Lastrow As Integer
Dim DerniereLigne As Integer
Sub ventilation()
Application.ScreenUpdating = False

For j = 5 To 7
Sheets(j).Select
Lastrow = Range("C2000").End(xlUp).Row
For i = Lastrow To 5 Step -1
Sheets(j).Select
Rows(i).Select
Selection.Delete Shift:=xlUp
Next i
Sheets("idconel").Select
DerniereLigne = Range("C2000").End(xlUp).Row
For k = 5 To DerniereLigne
Sheets("idconel").Select
If Sheets(j).Name = Cells(k, 15).Value Then
Rows(k).Select
Selection.Copy
Sheets(j).Select
Lastrow = Range("C2000").End(xlUp).Row + 1
Cells(Lastrow, 1).Select
ActiveSheet.Paste

End If
Next k
Next j
Sheets("idconel").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True

Merci
DJISA

 

[DJISA]

Salut galougalou, Le Forum!
Un grand merci pour le travail effectué. Surtout tu es allé plus loin que moi. J'avais pas cette conception au départ mais je crois que cela me va bien.
DJISA