Une boucle combinée à une condition permet de calculer automatiquement, pour chaque employé, le nombre d'heures supplémentaires au-delà de 40h par semaine, majorées de 50%.

Sub CalculerHeuresSupplementaires()
    Dim i As Integer
    Dim heuresTravaillees As Double
    Dim heuresSup As Double

    For i = 2 To 10
        heuresTravaillees = Cells(i, 2).Value
        If heuresTravaillees > 40 Then
            heuresSup = heuresTravaillees - 40
            Cells(i, 3).Value = heuresSup * 1.5
        Else
            Cells(i, 3).Value = 0
        End If
    Next i
End Sub

Pour chaque ligne, si les heures travaillées (colonne B) dépassent 40, l'excédent est calculé puis majoré de 50% et écrit en colonne C ; sinon, la colonne C reste à 0 — aucune heure supplémentaire n'est due.

À vous de jouer : adaptez cette macro pour appliquer un taux de majoration différent (100% au lieu de 50%) au-delà de 48h.