Bonjour

Aujourd'hui mon problème est le suivant. Dans une feuille j'ai plein de cellules avec des horaires, style 11h40. Je voudrais transformer tous ces horaires en :11:40:00. Malheureusement, ma macro se plante sur "incompatibilité de type" sur la 1ère ligne.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
For Each cell In Worksheet
    Selection.NumberFormat = "hh "" h "" mm"
    Top = ActiveCell.Value
    If Mid(Top, 2, 1) = "h" Then
    Top = "0" & Top
    End If
    h = Left(Top, 2)
    m = Mid(Top, 4, 2)
    s = "00"
   new_top = h & ":" & m & ":" & s
   ActiveCell.Value = new_top
Next
Quelqu'un pourrait-il me venir en aide ?

Merci