XL 2003 : Récupérer la valeur de la cellule active

Bonjour,

Un petit souci de syntaxe...

Je cherche à récupérer la valeur d'une cellule active. Et je n'y parviens pas.

Voici le bout de code qui me pose problème pour lequel j'ai le message d'erreur suivant "Erreur d'exécution '438' : Propriété ou méthode non gérée par cet objet"
En gras italique la ligne incriminée :

Sub essai4()
'
    Dim Matr_Actu As Integer
    Dim Nbrl As Integer
    Dim a As Integer
    Dim B_C As Variant
    Dim Tcot As Long
'
    Matr_Actu = ThisWorkbook.Sheets("Tmp_Sal").ActiveCell.Value
    Nbrl = ThisWorkbook.Sheets("Tmp_Sal").Range("N_Sal_Tmp").Value
...

Quelqu'un(e) pourrait-il m'indiquer quelle erreur j'ai commise ?

Merci d'avance !

Nospam