XL 2019 Horloge mondiale a VBA

Option Explicit


Private Sub Workbook_Open()
    Dim a As Range
    Dim cell As Range
    With Sheets("MONDES")
        ' Crée une plage nommée "Pays" pour les cellules constantes dans la colonne 7 à 100
        Intersect(.[7:100], .Cells.SpecialCells(xlCellTypeConstants, 2)).Name = "Pays"
    End With
    
    ' Applique un format personnalisé et une formule pour calculer la différence d'heures
    With [Pays].Offset(, 2)
        .NumberFormat = """+""0;-0;" ' format personnalisé
        ' Boucle sur chaque cellule de la plage "Pays"
        For Each cell In .Cells
            cell.Value = CalculerDifferenceHeure(cell.Offset(0, -1), Sheets("MONDES").Range("Q2"))
        Next cell
    End With
End Sub


' Fonction pour calculer la différence d'heures entre deux plages
Function CalculerDifferenceHeure(R7 As Range, Q2 As Range) As String
    If R7.Value = Q2.Value Then
        CalculerDifferenceHeure = ""
    ElseIf R7.Value > Q2.Value Then
        CalculerDifferenceHeure = "+" & Format(R7.Value - Q2.Value, "h")
    Else
        CalculerDifferenceHeure = "-" & Format(Q2.Value - R7.Value, "h")
    End If
End Function

=24*(C7-$Q$2)

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 = "=24*(RC[-1]-R2C17)"
    For Each a In .Areas
        a = a.Value 'supprime les formules
    Next
End With
End Sub