Salut à tous
Pierrot, je ne suis pas assez doué en VBA pour voir où cloche ton code mais je pense que le code ci-dessous doit fonctionner (avec les réserves liées à la spécificité du calcul d'heures). Vois si ça peut t'aider
Sub TotalHeureD()
Dim dernligne as long '(integer si t'es sur de pas dépasser 32767 lignes)
dim formuleM as string
dernligne = Sheets(1).Range("d65536").End(xlUp).Row
formuleM = "=Sum(d2:d" & dernligne & ")"
Sheets(1).Range("m2").Value = formuleM
Sheets(1).Range("M2").NumberFormat = "[h]:mm:ss"
End Sub
@+
Steplof