Sub StyleReference()
Dim Num%, Txt$
Num = Application.ReferenceStyle
Txt = IIf(Num = 1, "A1", "R1C1")
MsgBox "Style " & Num & " - " & Txt 'pour tester
End Sub
Function QuelStyle() As String
QuelStyle = Array("R1C1", "A1")(-(Application.ReferenceStyle = xlA1))
End Function