Sub AtteindreCellule()
Dim AdrCel As String, Wbk As String, Sht As String, Cel As String
Dim VPath As String, Pos As Integer, Pos2 As Integer
AdrCel = Range("A1").Value
'AdrCel = "='C:\Documents and Settings\paul\Mes documents\TOULOUSE\ETATS D'ACOMPTE\04 - CASSIN\[04 - situations.xls]SITUATION 6'!$E$21"
Pos = InStrRev(AdrCel, "]")
Pos2 = InStrRev(AdrCel, "'!")
' Déterminer le classeur
VPath = Mid(AdrCel, 3, Pos - 2)
Wbk = Replace(VPath, "[", "")
Wbk = Replace(Wbk, "]", "")
' Déterminer la feuille
Sht = Mid(AdrCel, Pos + 1, Pos2 - Pos - 1)
' Déterminer la cellule
Cel = Mid(AdrCel, Pos2 + 2, 10)
Workbooks.Open Wbk
ActiveWorkbook.Sheets(Sht).Select
ActiveSheet.Range(Cel).Select
End Sub