[XL-2003] Vba : recherche valeur dans tableau

Bonjour,

Je suis en train de faire une macro pour rechercher une valeur dans un tableau.

Je suis en train de faire ca "A l'ancienne", et j'aimerais savoir s'il y aurait un moyen un peu plus propre..

Voici mon code (Fichier ci joint)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 Workbooks(currentfile).Sheets("TAUX DE VALIDATION").Activate
 
 
 Dim FT001TV, FT005TV, FT010TV, FT015TV, FT025TV, FT030TV, FT042TV, FT045TV, FT055TV, FT065TV, FT070TV, FT080TV, FT090TV As String
 Dim chercheTV As Range
 
Dim semTV As String
semTV = "Total " & Right(semaine, 2)
 
    Set chercheTV = Range("G7:IV7").Find(semTV, LookIn:=xlValues)
    chercheTV.Select
    Selection.Offset(2, 0).Select
'Note : la ca plante ^^ 
    If Range(Selection.xlToRight).Value = "FT001" Then
    FT001TV = Left(ActiveCell.Value * 100, 4) & "%"
    Else: selection.offset(1, 0).select
loop
    End If

etc.... pour chaque string
Merci d'avance