Modification de cellules

Question

Bonjour, j'ai un problème que je n'arrive pas à résoudre. J'ai deux feuilles différentes dans un même classeur qui se ressemblent en format (voir ci dessous). Je souhaite qu'un programme VBA analyse toute ma feuille et s'il repère une similitude entre les colonnes contrat de chaque page, il remplace le Nom de la feuille par celui d l'autre.

Nom	Contrat
Test 1	5326
Test 2	3625

Voici le code que j'utilise, qui ne fonctionne pas :

Sub modif()
Dim ligne As Long, Dim compteur As Long
Set F1 = Worksheets("Situation_Agregee")
Set BDD = Worksheets("BdD")

For ligne = 1 To 200

    If Cells(ligne, 5) <> "" And Cells(ligne, 5) <> "Support" Then

        compteur = 1

        Do While compteur < 350

            If F1.Cells(ligne, 4) = BDD.Cells(compteur, 3) Then

                F1.Cells(ligne, 5) = BDD.Cells(compteur, 2)

            End If

            compteur = compteur + 1

        Loop

    End If

Next

End Sub

LouReeD · Answer

Comme beaucoup ici je vous demanderais un fichier sur ce coup là. Votre code parait bien mais les références aux feuilles et colonne en fonction des lignes c'est difficilement appropriable (ça se dit ça ?) @ bientôt LouReeD...