Copier selon critere et fournisseurs

[Bouba]

Bonjour à tous
j'ai un classeur avec plusieurs feuilles et un userforme de saisie
je voudrai au moment que je fais la saisie des donner sur la feuil 1 il y un macro ou une fonction automatique que copie les donner sur d'autres selon un nom ou un code j'ai vu se code sur le forum est je voudrai l'adapter à mon besoin
merci à tous

Sub CopierZone()
Dim Datedébut, DateFin As Date
Dim i, début, fin As Long

Datedébut = Range("B7").Value 'lecture du contenu de la cellule B7
DateFin = Range("C7").Value 'lecture du contenu de la cellule C7

i = 8 'pour commencer la recherche au début du tableau

Range("A28").CurrentRegion.ClearContents 'nettoyage de la zone de collage

'recherche de la ligne correspondante à la date de départ
Do: i = i + 1
Loop Until Range("A" & i).Value >= Datedébut
début = i 'affectation du n° de la ligne à la variable "début"

'recherche de la ligne correspondante à la date de fin
Do: i = i + 1
Loop Until Range("A" & i).Value > DateFin Or i = 24
fin = i - 1 'affectation du n° de la ligne à la variable "fin"

Range("A" & début, "F" & fin).Copy 'copie la zone

Range("A28").Select
ActiveSheet.Paste 'colle la zone à partir de A28
End Sub