Macro "Recherche"

Bonjour,

J'ai un fichier ROSAM avec 2 feuilles : une dénommée Tarif, avec une liste de prix et une seconde appelée OVA qui va rechercher les informations dans Tarif. J'ai crée une macro "Recherche" qui devrait, quand on efface le contenu de la colonne H (Fourniture), inscrire les prix récupérés à partir de la feuille Tarif. Cette action s'effectue mais copie aussi des chiffres dans les lignes jaunes et vertes. Je n'arrive pas à cadrer les données uniquement dans les lignes blanches...

Nota: J'ai dû supprimer de nombreuses lignes dans la feuille OVA, le fichier était trop gros (6134 lignes!); je pense que si la macro fonctionne sur 50 lignes, c'est possible sur l'ensemble.

Si vous avez une idée, merci de m'en faire profiter .

A bientôt

Feever

Sub Recherche()
'Macro2012m10
'Recherche dans Tarif
Application.ScreenUpdating = False
Dim i As Long
Dim R As Range

  For i = 16 To Sheets("OVA").Range("C" & Rows.Count).End(xlUp).Row
    If Sheets("OVA").Range("B" & i).Interior.Color = RGB(255, 255, 255) Then
    Set R = Sheets("Tarif").Range("A2:A933").Find(Range("C" & i))
    If Not R Is Nothing Then
      Range("H" & i) = R.Offset(0, 3)
    Else
      Range("H" & i) = ""
    End If
    End If
  Next i
Application.ScreenUpdating = True
End Sub

Je te remercie pour ta réponse, celà fonctionne bien même sur l'ensemble des lignes du fichier.

Feever