macro boucle sur texte avec variable

[Fab71]

bonjour, je débute en VBA et je sèche vraiment et sollicite donc votre aide ;-)

voilà j'importe un fichier csv sur un onglet "CSV"
dans cet onglet je veux chercher et copier sur un autre onglet "RESULTAT" un ensemble de données.

je sais faire une partie, c'est a dire chercher une valeur fixe : practice 1 result
puis selectionner les valeurs adjacentes
puis les coller sur l'onglet RESULTAT, a la suite d'une ligne vide (avec 3 lignes d'espace)

ma macro :

Sub Macro1()
'
' Macro1 Macro
'

' recherche practice 1 result et active cellule
Sheets("CSV").Select
Cells.Find(What:="practice 1 result", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate

' active la tableau soit equivalent de ctrl A
ActiveCell.CurrentRegion.Select

' copie la selection et va sur onglet RESULTAT et colle emplacement vide suivant + 3 lignes
Selection.Copy
With Sheets("RESULTAT")
ActiveSheet.Paste Destination:=.Range("A" & .Range("A" & Rows.Count).End(xlUp).Row).Offset(3)
Application.CutCopyMode = False
.Activate
End With

End Sub

ce que j'aimerai obtenir c'est une recherche sur "CSV" de chaque "practice N result" ou N varie de 1 à X
et de les copier a la suite sur l'onglet "RESULTAT"

Voilà en vous remerciant par avance, Fabrice

 

[mutzik]

voir sur l'autre fil de discussion