Private Sub calcul_lance()
Dim i, j As Byte
Dim lance As Integer
Dim leslances As Variant
leslances = Array("1_1", "1_2", "1_3")
For i = 1 + Entete To Entete + NbLances
For lance = LBound(leslances) To UBound(leslances)
If Feuil7.Range("c" & i) = "SC" & lance And [ext_tempo] = "Temporisation" Then Feuil1.Range("tempo_lance" & lance) = Feuil7.Range("D" & i) '* 60 / 1000
Next lance
Next i
End Sub