Tiens j'ai un bon exemple pour toi qui marche tres bien:
Dim Appli As Excel.Application
Dim classeur As Excel.Workbook
Dim feuille As Excel.Worksheet
Dim tmp1, tmp2, tmp3 as String
Set Appli = CreateObject("Excel.application")
Appli.Visible = True
Appli.DisplayAlerts = False
'Ouverture du classeur
Set classeur = Appli.Workbooks.Open(C:\Destination de ton fichier excel)
Set feuille = classeur.Worksheets(1)
tmp1 = feuille.Cells(2, 1)
tmp2 = feuille.Cells(m + 3, 1)
If feuille.Cells(13, 1) = "-FIN-" Then
tmp3 = feuille.Cells(12, 1)
Else
tmp3 = feuille.Cells(13, 1)
End If