XL 2013 impression trop petit des cases a cocher

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xrg As Range, ligne As Long

  If Target.Count = 1 Then
    Set xrg = Intersect(Range("O7:O" & Cells(Rows.Count, "N").End(xlUp).Row), Target)
    If Not xrg Is Nothing Then
      Target.Font.Name = "Wingdings": Target.Font.Size = 36: Target.Font.Bold = False
      If IsEmpty(Target) Then Target = Chr(168)
      If Asc(Target) = 168 Then
        Target = Chr(254)
        Target.Font.Bold = True
      Else
        Target = Chr(168)
        Target.Font.Bold = False
      End If
      ligne = xrg.Row
      If Asc(Target) = 168 Then
        Cells(ligne, "p") = Empty
      ElseIf Cells(ligne, "c") = 240 Then
        Cells(ligne, "p") = 0
      Else
        Cells(ligne, "p") = Cells(ligne, "d") * Cells(ligne, "n")
      End If
      Cells(ligne, "p").Activate
    End If
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal R As Range)
  If R.CountLarge > 1 Then Exit Sub
  Select Case R
    Case "T": R = "£": R(1, 2).Select
    Case "£": R = "T": R(1, 2).Select
  End Select
End Sub