Sub prise_astreinte()
Dim index_ligne As String, HH As String, MM As String, temps_effectue As String
index_ligne = Cells(6, 4)
HH = Cells(15, 3)
MM = Cells(15, 5)
temps_effectue = Cells(18, 4) ' la valeur est de 1,875'
If index_ligne <> Empty Then
If HH <> Empty Then
If MM <> Empty Then
If temps_effectue <> Empty Then
Sheets("BDD").Range("K" & index_ligne).Value = temps_effectue
Beep
End If
End If
End If
End If