Sub test()
Dim i&, cel As Range
Application.Goto Sheets("saisie siege").Range("A7")
For i = 7 To Range("A65536").End(xlUp).Row
If IsEmpty(Cells(i, 1).Value) Then GoTo fin
With Sheets("EC10")
For Each cel In .Range("A4:A" & Range("A65536").End(xlUp).Row)
If Cells(i, 1).Value = cel Then
Select Case Left(cel, 1)
Case 6
Cells(i, 4).Value = cel.Offset(0, 1).Value - cel.Offset(0, 2).Value
Case 7
Cells(i, 4).Value = cel.Offset(0, 2).Value - cel.Offset(0, 1).Value
End Select
cel.Offset(0, 3).Value = "x"
End If
Next cel
End With
fin:
Next i
With Sheets("EC10")
For i = .Range("A65536").End(xlUp).Row To 4 Step -1
If .Cells(i, 4).Value = "x" Then .Rows(i).Delete
Next i
End With
End Sub