Excel Swap Reference Style entre R1C1 et A1

 Sub ChangeCellRef()
 If Application.ReferenceStyle = xlA1 Then
 Application.ReferenceStyle = xlR1C1
 Else
 Application.ReferenceStyle = xlA1
 End If
 End Sub
Sleepy Starling