Erreur objet requis vba

Bonjour,

J'espère que je poste au bon endroit...Voila ça fait quelque heures maintenant que je n'arrive pas à trouver le problème de ma macro. Voila ce que je veux faire:
1. Rechercher le nom d'une colonne dans la ligne 2
2. si le nom:
n'est pas trouvé alors que je fais apparaitre ma message box
sinon je veux sélectionner la plage de cellule en dessous pour faire une recherchev par la suite...et c'est là que ça plante ça me met erreur objet requis.

Voila mon script
Sub Test()

'Positionnement dans la bonne cellule
Dim celluletrouvee As Range
Set celluletrouvee = Range("A2:D2").Find("Nom", lookat:=xlWhole)

If celluletrouvee Is Nothing Then
MsgBox ("Cette colonne n'existe pas")
Else
Dim CP As Range
celluletrouvee.Offset(1, 0).Activate
Set CP = Range(ActiveCell(1, 1), ActiveCell(4, 1)).Select
With Workbooks("Classeur1recherche verticale4.xlsm").Sheets("Feuil1")
.Range("CP").Value = WorksheetFunction.VLookup(.Range("A3:A6").Value, _
' Workbooks("Classeur2.xlsx").Sheets("Nom").Range("A3:B6"), 2, False)
End With
End If
End Sub

Aidez moi s'il vous plait