XL 2019 Horloge mondiale a VBA

=SI(C7=$Q$2;"";SI(C7>$Q$2;"+" & TEXTE(C7-$Q$2;"h");"-" & TEXTE($Q$2-C7;"h")))

Private Sub ComboBox1_Change()
    Me.Label3.Caption = Cells(Application.Match(Me.ComboBox1.Value, [plage], 0) + [plage].Row - 1, [plage].Column + 1).Text
    Dim CalculDiffTemps As String
    Dim valeur1, reference As Range
        Set valeur1 = Cells(Application.Match(Me.ComboBox1.Value, [plage], 0) + [plage].Row - 1, [plage].Column + 1)
        Set reference = Range("Q2")
            If valeur1.Value = reference.Value Then
                CalculDiffTemps = ""
            ElseIf valeur1.Value > reference.Value Then
                CalculDiffTemps = "+" & Format(valeur1.Value - reference.Value, "h")
            Else
                CalculDiffTemps = "-" & Format(reference.Value - valeur1.Value, "h")
            End If
    MsgBox CalculDiffTemps
End Sub

Private Sub ComboBox1_Change()
    Label3 = Cells(Application.Match(ComboBox1, [plage], 0) + [plage].Row - 1, [plage].Column + 1).Text
    Label4 = Cells(Application.Match(ComboBox1, [plage], 0) + [plage].Row - 1, [plage].Column + 2).Text
End Sub

Private Sub Workbook_Open()
With Sheets("MONDES")
    Intersect(.[7:100], .Cells.SpecialCells(xlCellTypeConstants, 2)).Name = "Pays"
    [Pays].Offset(, 2) = "=HOUR(RC[-1])-HOUR(R2C17)"
    [Pays].Offset(, 2).NumberFormat = """+""0;-0;" 'format personnalisé
End With
End Sub

Private Sub Workbook_Open()
Dim a As Range
With Sheets("MONDES")
    Intersect(.[7:100], .Cells.SpecialCells(xlCellTypeConstants, 2)).Name = "Pays"
End With
With [Pays].Offset(, 2)
    .NumberFormat = """+""0;-0;" 'format personnalisé
    .FormulaR1C1 = "=HOUR(RC[-1])-HOUR(R2C17)"
    For Each a In .Areas
        a = a.Value 'supprime les formules
    Next
End With
End Sub