Chemin = ThisWorkbook.Sheets("Param").Range("CheminSauvegarde").Value
Public CONTACT As String
CONTACT = ThisWorkbook.Worksheets("contact").[A2].Value
Public Const CONTACT As String = ThisWorkbook.Sheets("contact").Range("A2").Value
Public Const CONTACT As String = "contact!A2"
Sub Test()
MsgBox Range(CONTACT) 'exemple pour tester
End Sub
Public Const CONTACT As String = "MaCellule"
Sub Test()
MsgBox Range(CONTACT) 'exemple pour tester
End Sub
Sub Test()
MsgBox [MaCellule] 'exemple pour tester
End Sub