Changer la couleur des hyperliens

Sub Test()
   Selection.Style = "Hyperlink"
    Range("A1").Select
    With ActiveWorkbook.Styles("Hyperlink")
        .IncludeNumber = False
        .IncludeFont = True
        .IncludeAlignment = False
        .IncludeBorder = False
        .IncludePatterns = False
        .IncludeProtection = False
        .Font.Name = "Calibri"
        .Font.Size = 10
        .Font.Bold = True
        .Font.Italic = False
        .Font.Underline = xlUnderlineStyleSingle
        .Font.Strikethrough = False
        .Font.ThemeColor = 5
        .Font.TintAndShade = 0
        .Font.ThemeFont = xlThemeFontNone
    End With
End Sub