Extraction du mot dans une cellule excel

Bonjour,



J'ai un ptit problème avec l'utilisation de la fonction :

Function pf(lc, Optional last)
'Application.Volatile
ligne = lc.Row
col = lc.Column
tmp = Trim(Cells(ligne, col))
tab1 = Split(tmp, " ")

If IsMissing(last) Then
tab1(UBound(tab1)) = ""
pf = RTrim(Join(tab1, " "))
Else
pf = tab1(UBound(tab1))
End If
End Function


Cette fonction marche avec une seule cellule mais mon problème est :

- J'ai 2 fichiers nommés FichierSource et FichierTemp : je veux copier directement la cellule A5 du FichierSource dans FichierTemp en utilisation cette fonction ci-dessus mais ça ne marche pas.

Est-ce que quelqu'un peut m'aider ?

Merci d'avance.