Private Sub toto(Optional titre$ = "")
Dim tmp$
m = PasContour(Range("A1:M20"))
tmp = "--:--"
On Error Resume Next
tmp = ActiveCell.CurrentArray.Address
ActiveCell.CurrentArray.Interior.ColorIndex = 7
On Error GoTo 0
ActiveCell.Interior.ColorIndex = 6
n = Contour(ActiveCell.CurrentRegion)
MsgBox "Selection : " & Selection.Address & vbLf & String(54, "_") & vbLf & vbLf & _
"ActiveCell : " & ActiveCell.Address & vbLf & _
" CurrentArray : " & tmp & vbLf & _
" CurrentRegion : " & ActiveCell.CurrentRegion.Address, , titre
Feuil1.Cells.Interior.ColorIndex = xlNone
End Sub