Copie des données de cellules vers d'autres

Bonjour à tous,

je travaille sur un classeur qui me permettrait de gérer les stocks de mon entreprise. J'ai bien avancé mais je me retrouve confronté à un problème qui nécessite votre aide. J'ai besoin que les données de mes cellules se recopie dans plusieurs autres cellules de ma feuille et aussi dans plusieurs autres cellules d'une autre feuille. Et je ne peux pas passer par des formules car ces cellules sont associés a un bouton de commande qui copie des données dans les cellules. EX: j'active mon bouton et je veux que le résultat de A1 se copie dans la feuille 1 en A2, A4, A7 etc et aussi sur la feuille 2 en A5, A8, A11 et même sur la feuille 3 en A10, A13 etc...

J'ai ce modèle de formule mais je n'arrive pas à l'adapter et il m'oblige à faire cellule par cellule ce qui n'est pas adapté puisque j'ai 250 références sur 6 ou 7 feuilles (le cauchemar !)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$15" Then
Application.EnableEvents = False
[D26] = Target
ElseIf Target.Address = "$ID$26" Then
Application.EnableEvents = False
[D15] = Target
End If
Application.EnableEvents = True
End Sub

Merci à tous de m'aider !