XL 2016 VBA - Une manière rapide de trouver les cellules verrouillées ?

Option Explicit

Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long

Sub MaMacroTimer()

    Dim StartTime As Double
    Dim EndTime As Double
    Dim ElapsedTime As Double
   
    ' Début du comptage du temps
    StartTime = Timer
    ' Autre méthode pour mesurer le temps
    ' StartTime = GetTickCount / 1000 ' Convertir les millisecondes en secondes
   
    ' Votre code à mesurer
    ' ...
   
    ' Fin du comptage du temps
    EndTime = Timer
    ' Autre méthode pour mesurer le temps
    ' EndTime = GetTickCount / 1000 ' Convertir les millisecondes en secondes
   
    ' Calcul du temps écoulé
    ElapsedTime = EndTime - StartTime
   
    ' Affichage du temps écoulé
    MsgBox "Temps écoulé : " & ElapsedTime & " secondes", vbInformation

End Sub