Bonjour Amo, bonjour le forum,
Voici le code à saisir dans ton module :
Sub Calcul()
Dim Z As Integer, A As Integer
Dim B As Variant
Z = Sheets(1).Range('A65000').End(xlUp).Row
With Sheets(1)
For A = 5 To Z
B = .Cells(A, 2).Value
If B <> '' Then
.Cells(A, 3).Value = B / 8 * 5
.Cells(A, 4).Value = .Cells(A, 2).Value + .Cells(A, 3).Value
End If
Next A
End With
End Sub
Bonne journée,
Ciao ciao
