Option Explicit
Const Entete = 4
Const NbLances = 8
-----------------------------------------------------
Private Sub calcul_lance()
Dim i As Byte
Dim lance As Integer
For i = 1 + Entete To Entete + NbLances
If Feuil7.Range("c" & i) = "SC" & lance And [ext_tempo] = "Temporisation" Then Feuil1.Range("tempo_lance" & lance) = Feuil7.Range("D" & i) '* 60 / 1000
Next
End Sub