bonjour,
adapte cette ligne dans la procédure userform_activate() (impact sur le reste du code non testé)
'ajout des index de ligne en derniere colonne de listbox
'pour un eventuel reperage si modif dans userform puis report sur feuille
For I = 1 To UBound(Tbl): Tbl(I, UBound(Tbl, 2)) = I + 2: Next
ainsi
'ajout des index de ligne en derniere colonne de listbox
'pour un eventuel reperage si modif dans userform puis report sur feuille
' + formattage de l'heure (colonne 11)
For I = 1 To UBound(Tbl): Tbl(I, UBound(Tbl, 2)) = I + 2: Tbl(I, 11) = Format(Tbl(I, 11), "hh:mm"): Next