Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Intersect(Target, Rows(3))
If Not Target Is Nothing Then MsgBox "Nombre d'heures/minutes : " & Application.Text(Application.Sum(Intersect(Target.EntireColumn, Rows(5))), "[h]:mm")
End Sub