Copier coller toutes les cellules de même valeur dans un même tableau

Bonjour à toutes et à tous,

Je vais essayer d'être clair
J'essaye de copier coller et de mettre en forme certaines valeurs d'un onglet dans des tableaux d'un autre onglet.
Exemple :
Je veux copier les valeurs descellules de la colonne B en fonction des valeurs de la cellule de la colonne A.
Si cellule de la colonne A =Blanc alors cellule de la colonne B copiée dans la colonne B du tableau 1 compris entre les lignes 0 et 400 du deuxième onglet
Si cellule de la colonne A= Rouge alors cellule de la colonne B dans la colonne B du tableau 2 compris entre les lignes 401 et 800 du deuxième onglet
Si cellule de la colonneA= Vert alors cellule de la colonne B dans la colonne B du tableau 3 compris entre les lignes 801 et 1200 du deuxième onglet
...

J'ai 1O tableaux alignés dans le deuxième onglet.
J'ai fais une macro mais le problème est que la liste du premier onglet peut être très longue (3000 lignes) et que si le "premier" Rouge commence à la ligne 600, je copie la cellule B à la ligne 401 + 600 alors que j'aimerais pouvoir commencer la copie à partie du premier blanc, bleu, rouge, etc

expl marco pour A=Rouge et copie dans un tableau commencant à la ligne 407
Dim i As Long
Sheets("Feuil1").Activate


For i = 7 To 3000


If Cells(i, 4) = "X" And Cells(i - 1, 1) = "Rouge" Then
Cells(i - 1, 2).Copy Sheets("Extraction Feuil1").Range("A407").Cells(i, 2)
End If
next i

Je suis désolé, je n'arrive pas à être plus clair .

Merci de votre aide