erreur VBA

Bonjour,
Je fais appel de votre aide. Mon code plante dès le début
Sheets(2).Range("C7").Select

Sub Saisi_AutoCde()

Application.ScreenUpdating = False 'est primordiale si l'on veut gagner afin d'optimiser lors, du traitement
'en écriture sur des Ranges ou sur des Manipulation de Feuilles.

Dim Cde As Variant
Dim MaValeur As Variant
Dim MaPlage As Range
Dim MaColonne As Single
Dim i As Variant
Dim x As Integer
Dim nbligne As Integer
Dim Dte As String

'Données pour la recherchev
MaValeur = Sheets(2).Range("B2") 'ma valeur de recherchev
Set MaPlage = Sheets(3).Range("A:C") 'mes colonnes de recherchev de l'onglet "EQV_DEST"
MaColonne = 3 'ma recherchev se fait sur la 3e colonne
ValeurProche = False ' valeur faux



Sheets(2).Range("C7").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Copy Sheets(1).Range("P2")

Sheets(2).Range("D7").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Copy Sheets(1).Range("S2")

Sheets(2).Range("E7").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Copy Sheets(1).Range("Q2")

If IsError(Application.VLookup(MaValeur, MaPlage, MaColonne, ValeurProche)) Then
MsgBox "Le code destinataire de la Cde client est inconnue dans l'onglet du tableau EQV_DEST"

Else
i = Application.VLookup(MaValeur, MaPlage, MaColonne, ValeurProche)
End If