Synthèse de valeur de cellules de plusieurs onglets à l'aide de la position d'un mot

Bonjour, bonsoir,

Je sollicite l'aide de la communauté pour un petit problème VBA.

Je souhaiterais faire la synthèse des valeurs de cellules de plusieurs onglets en fonction de la position d'un mot clé "HISTORIC".

Mon code :

Sub Bouton1_Cliquer()

Dim x As Range
Dim Ws As Worksheet

Application.ScreenUpdating = False

With Sheets("Feuil1")

For Each Ws In Worksheets

Set x = Ws.Range("A1:A1000").Find("HISTORIC", , xlValues, xlWhole, , , False)
Sheets("Feuil1").Cells(1 + n, 1) = Ws.Cells(x.Row + 1, x.Column + 1).Value
Sheets("Feuil1").Cells(1 + n, 2) = Ws.Cells(x.Row + 1, x.Column + 3).Value
n = n + 1

Next Ws

End With

Application.ScreenUpdating = True

Set x = Nothing

End Sub

J'obtiens une erreur 91 : Variable objet ou variable de bloc With non définie.

Quelqu'un peut t-il m'aider à me dépatouiller ?

Merci d'avance.