Erreur d'exécution 91 - Variable d'objet non défini

Bonjour à tous,

Je considère que je suis pas trop nul en vba mais là je sèche.

J'ai un tableau de données sur Feuil1 que je copie (en partie) sur une Feuil2. Sur cette feuille, je modifie les données sur une colonne. Ensuite, je veux "réintégrer" ces données sur Feuil1 mais en identifiant les lignes à modifier. Ce faisant, j'ai commencé à bosser sur le code suivant :

Sub dette()

Dim Trouve2 As Range
Dim AdresseTrouvee2 As Range

Sheets("BENEFICIAIRES").Visible = True
Sheets("DISTRIBUTION").Select

FinalRow1 = Cells(Rows.Count, 1).End(xlUp).Row
    For x = 7 To FinalRow1
        ThisValue = Cells(x, 7).Value
        CardNumb = Cells(x, 1).Value
        If ThisValue <> "" Then
            Sheets("BENEFICIAIRES").Select
            FinalRow3 = Cells(Rows.Count, 3).End(xlUp).Row
            Set PlageDeRecherche2 = Range("C" & FinalRow3)
            Set Trouve2 = PlageDeRecherche2.Cells.Find(what:=CardNum, LookAt:=xlWhole, MatchCase:=True)
            --> AdresseTrouvee2 = Trouve2.Address <--

            Dim Dette3 As Range
            Set Dette3 = Range(AdresseTrouvee2).Offset(, 6)
            Dette3.Value = ThisValue
            Sheets("DISTRIBUTION").Select

        End If
    Next x

End Sub

Cependant, arrivé à la ligne indiqué par les deux flèches, je tombe sur une erreur de type "91 - Variable d'objet non défini".

Je tiens à préciser que j'ai également pensé à déclarer "PlageDeRecherche2" comme "Range" mais cela ne change rien.

Je serais ravi d'avoir un petit coup de main. Je met en pièce jointe une version expurgée des données sensible mais cela devrait vous permettre de comprendre.

Merci d'avance.

Bonjour

Dim AdresseTrouvee2 As String et non range

CardNumb = Cells(x, 1).Value
        If ThisValue <> "" Then
            Sheets("BENEFICIAIRES").Select
            FinalRow3 = Cells(Rows.Count, 3).End(xlUp).Row
            Set PlageDeRecherche2 = Range("C" & FinalRow3)'tu recherches que sur 1 ligne
            Set Trouve2 = PlageDeRecherche2.Cells.Find(what:=CardNum, LookAt:=xlWhole, MatchCase:=True)
            --> AdresseTrouvee2 = Trouve2.Address <--

Tu déclares cardnumb et tu cherches cardnum...

Set PlageDeRecherche2 = Sheets("BENEFICIAIRES").Range("C4:C" & FinalRow3)

A+ François

Merci beaucoup François. Je me fais l'effet d'un imbécile, j'ai pas été attentif