Microsoft 365 Créer plusieurs feuilles à partir d'une colonne sous condition

[solime]

Bonjour à toutes et à tous,

Tout d'abord je voulais vous dire que je suis novice en codage.
J'ai fusionner plusieurs fichier .csv sur une colonne. Où j'ai des données concernant différents individus mais avec cette fusion ils s'enchaînent.
Ce que je voudrait faire c'est de créer une feuille par individu, mes données entre individus sont séparées par une ligne de texte "Volume micron^3". Ou bien trouver une autre méthode me permettant de fusionner mes .csv directement dans différentes feuilles.
J'ai pas mal cherché ou peut être pas bien et je n'ai pas réussi à trouver de réponse à mon problème c'est pourquoi je m'en remet à vous.

Ci-joint un exemple de fichier, en vous remerciant d'avoir pris le temps de me lire.

 

[pierrejean]

Bonjour
Macro a utiliser:

Sub test()
fin = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
For n = fin To 1 Step -1
 If Feuil1.Range("A" & n) = "Volume (micron^3)" Then
   Sheets.Add
  Feuil1.Range("A" & n & ":A" & fin).Copy Destination:=ActiveSheet.Range("A1").Resize(fin - n + 1)
  Feuil1.Range("A" & n & ":A" & fin) = ""
 End If
Next
End Sub

 

[solime]

Merci beaucoup pierrejean !!

ça marche à merveille!!