Dim wb as workbook, wfeuille as worksheet
dim fichier As String, fic as string, NomSortie as string
'j'initialise
fichier = "C:\MesDocs\toto\Sig.xls"
fic = Split(fichier, "\")(UBound(Split(fichier, "\")))
NomSortie = "SORTIE"
Set wb = Workbooks(fichier) 'oui je sais, c'est pas ça:o
set wfeuille = wb.Sheets(NomSortie)
'.....
'plus tard : j'ouvre le fichier
Set wb = Workbooks.Open(fichier)
wb.Sheets(NomSortie).select
Range("A1").value = 10