Compilation de feuille et erreur 91

Bonjour à tous,

Je sollicite votre aide concernant une macro qui permet de compiler les données de plusieurs feuilles en 1.

Celle ci fonctionne parfaitement mais à la fin de l'execution j'ai un message d'erreur d'execution 91 (variable objet ou variable de bloc with non définie).

J'ai beau chercher je ne vois pas l'erreur.

vous trouverez le code ci dessous.

D'avance merci à tous pour votre aide et votre temps

Sub Recup()

Dim Fe As Worksheet

Dim Plage As Range

'Evite de prendre en compte 2 feuilles'

For Each Fe In ThisWorkbook.Worksheets

If Fe.Name <> "PrepaEnvoi" And Fe.Name <> "RECAP EQUIPE" Then

With Fe

'définie la plage à copier'

Set Plage = .Range(.Cells(1, 1), _

.Cells( _

.Cells.Find("*", .[A1], -4123, , _

1, 2).Row, _

.Cells.Find("*", .[A1], -4123, , _

2, 2).Column))

End With

'colle les valeurs dans la feuille PrepaEnvoi après la dernière ligne non vide'

Plage.Copy _

Worksheets("PrepaEnvoi").Range("A65536").End(xlUp).Offset(1, 0)

End If

Next Fe

End Sub

Bonjour,

La toute première précation .... dans ce cas de figure ... est de s'attarder sur l'orthographe précise des noms des onglets ...