Problème avec Type mismatch

Bonjour,

Je cherche à déterminer quelle est ma dernière colonne.
J'ai bien écrit With Sheets("lenomdemafeuille"), dimensionner LCPMP comme Byte et j'ai écrit :

Code:

LCPMP = .Range("A1").End(xlToRight)

Il me ressort "Type Mismatch".
Savez-vous pourquoi ? Pouvez-vous m'aider à corriger SVP ?

D'avance merci !