Recherche entête et colonne

Bonjour,

j'ai créé une macro qui me permet de copier coller des valeurs dans différents tableau de vitesse dans un meme fichier et coller dans un tableau qui résume tout à la ligne 434.

Mon problème c'est que cette ligne je vais l'utiliser dans un autre fichier et il suffit que quelqu'un ajoute une ligne ou une colonne pour que ma macro ne marche pas.

Ce que je souhaite c'est de faire une recherche d'"entete et de colonne pour trouver les valeurs qui m'interessent ( ce que je cherche c'est " Valeurs100" , Valeurs90"..., "Valeursmini") voici le fichier:

http://cjoint.com/13sp/CIzoLDDxG6Q.htm

macro a essayer d'appliquer :


Dim Recherche As Variant
Dim ColFind As Long
With Application.FindFormat.Interior
.Pattern = xlGray8
.PatternColorIndex = xlAutomatic
.Color = 13434828
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Set Recherche = Sheets("Onglet").Cells.Find(What:="ValeurAChercher", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True)
ColFind = Recherche.Column

Merci
A+