nbbas = 2 - 1
nbdroit = 13 - 1
Nlig = Selection.Rows.Count - nbbas
NCol = Selection.Columns.Count - nbdroit
'MsgBox Range("zone").Address
'Application.Goto Reference:="Zone"
nCDeb = ActiveCell.Column
nldeb = ActiveCell.Row
For i = nldeb To nldeb + Nlig '- 1
For j = nCDeb To (nCDeb + NCol) ' - 1)
Range(Cells(i, j), Cells(i + nbbas, j + nbdroit)).Select
j = j + nbdroit
Encadre_Simple 'Macro pour encadrement fin de la zone
Selection.BorderAround Weight:=xlMedium
Next
i = i + nbbas
Next
Cells(nldeb, nCDeb).Select