Fonction FIND VBA

Bonjour à tous,
Je suis très débutante en VBA et Macro Excel, en farfouillant, j'ai reussi à faire 90 % du travail, mais il me reste un problème majeur :
J'ai des fichiers de format .spc (spectral) qui peuvent s'ouvrir par Excel et cela donne des choses suivantes :


K€(I@@¯@

’ë5ÀB€(ýV:FWz(Fõ=FÝiFë~Fô”F]ÑF³é
FâíFjF"_'FX*,F#=)FÎ…FF©öEÃÎE·µE$)¨E”ÑŸEWDšEVH•Eº%‘Ež�E¢ŠEÖ&ˆEÃá†E–®†E>
"‡EÌ°„E¢„EÉïƒE;¿ƒE¶§„EQ2…E®…EV†E»ˆE%óˆEúŠE««ŒEÿÈŽE¢""‘E@0”EÄž˜E½JžEt¥Eö¬Eª²²E]ò·EƒX»Eìß¼Eeµ¼EÅ*¸EK·³E60®EУ§E•-*E§Õ™E
•E‘EY�E"
TIME = 3
ACCUM = 30 X 5
BINNING = 1
SPECTRO = MULTI
HOLE = 1000
SLIT = 100
EXCIT_LINE = 632.81
GRATING = 600
OBJECTIV = X100
FILTR = ----
X = 35830.7
Y = 35358.4
Z = 0
SPEC.WIDTH = 4.55778
DETECTOR = SYMPHONY CCD
DETECTOR SIZE = 1024
AUTOFOCUS = OFF
ICS CORRECTION = ON
NAME = SPECTRUM
DATE = 06/29/15 14:18:08
OPERATOR =
SAMPLE = PBSO4
REMARK =
POWER =

Tout ce qui est avant TIME ne m’intéresse pas donc je voudrais sélectionner (pour copier dans une autre feuille) à partir de TIME 24 lignes (c'est à dire jusqu'à la dernière non vide). Le problème c'est que lorsque j'utilise la fonction FIND, la machine retient le numéro de la cellule. Or les fichiers ne sont pas tous identiques sur le fond. Le TIME apparait à chaque fichier à des lignes différentes, donc ce que j'aimerais faire c'est que la machine comprenne "Sélectionner à partir du mot "TIME" 24 lignes" et non "Sélectionner à partir de la ligne ".." 24 lignes". Avez-vous compris mon problème et pouvez-vous m'aider ? Je vous en remercie par avance. :)

Bonjour,

je ne comprend pas le problème.

Tu fais un FIND pour chercher la première cellule (de ta colonne) qui contient le mot "TIME"
le FIND renvoie la position de la cellule contenant ton TIME
tu prend les 24 cellules à partir de la cellule Time est c'est ok non ?

Admettons que tout soit en colonne A de la feuille "Feuil1", et qu'on veut copier dans "Feuil2" à partir de A1

Code:

---

1 2 3 4 5 6 7

Sub toto() Dim Recherche As Range   Set Recherche = Worksheets("Feuil1").Columns(1).Find("TIME", , , xlPart) If Not Recherche Is Nothing Then Recherche.Resize(24, 1).Copy Worksheets("Feuil2").Range("A1")   End Sub

---

Il n'y a plus de problème quand on a la solution ! Un grand merci !