point de coordonnées de X d'un cellule Active

Bonjour,

J'aimerais connaitre le point de coordoonée x de ma cellule active.

Voici mon code VBA

' Declation des variables
Dim X as byte
Dim Val1 as string
Dim Val2 as sring
Dim Ligne as Byte

Val1=12
Val2=13

' Selectionne la derniere cellule vide de la colonne C
[C500].Select
Selection.End(xlUp)(2).Activate

' La valeur de la variable Ligne étant son numéro de Ligne trouvée
Ligne = Sheets("Feuil1").Range("C500").End(xlUp).Row + 1

' Attribution des valeurs
Cells(Ligne, 6).Value = Val1
Cells(Ligne, 7).Value = Val2

Lorsque je lance mon code, il y a une erreur d'execution 1004
Ligne = Sheets("Feuil1").Range("C500").End(xlUp).Row + 1


Qui Sait pourquoi ????

Merci d'avance !!!!!