Rotation du texte sans rotation de la bordure

Il suffit d'utiliser l'outil Orientation dans la boîte de dialogue Alignement Format Cells => Alignment

Si vous définissez Frontières que vous devez maintenir droit, vous devrez placer votre texte en angle dans des cellules fusionnées.

Ce bouton se trouve dans l'onglet d'accueil d'Excel.

Version finale de la réponse acceptée, pour les personnes intéressées.

Sub ConvertCellTextToRotatedTextBox(Optional RG2 As Range)

    Dim I As Long
    Dim RG As Range
    Dim CL As Range
    Dim TextShape As Object

    If Not RG2 Is Nothing Then
        Set RG = RG2
    Else
        Set RG = Selection
    End If

    If RG.Cells.Count > 200 Then
        If MsgBox("You are trying to cycle through " & RG.Cells.Count & " Cells. Are you Sure???", _
            vbYesNo, "***WARNING***") = vbNo Then
                Exit Sub
        End If
    End If

    For Each CL In RG.Cells
        If CL.Value <> "" Then
            Set TextShape = ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 129.75, 204, 72, 72)
            With TextShape
                .TextFrame2.TextRange.Characters.Text = CL.Value
                .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
                .TextFrame2.VerticalAnchor = msoAnchorMiddle
                .Left = CL.Left
                .Top = CL.Top
                .Width = CL.Width
                .Height = CL.Height
                .Rotation = 5
                .Select
            End With
            Selection.Formula = "=" & CL.Address
            CL.Font.Color = CL.Interior.Color
        End If
    Next CL

    Exit Sub

ERRORHAND:
 MsgBox "Unknown Error", vbOKOnly, "ERROR:"
End Sub