Sub calc4()
Dim ligne As Long
With Sheets("SLA5")
For ligne = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If .Range("I" & ligne) > 1 And .Range("C" & ligne) = "Basique" Then
.Range("A" & ligne & ":K" & ligne).Copy _
Sheets("Analyse SLA5").Cells(Rows.Count, 10).End(xlUp)(2).Resize(, 4)
ElseIf .Range("I" & ligne) > 1 And .Range("C" & ligne) = "Simple" Then
.Range("A" & ligne & ":K" & ligne).Copy _
Sheets("Analyse SLA5").Cells(Rows.Count, 10).End(xlUp)(2).Resize(, 4)
ElseIf .Range("I" & ligne) > 2 And .Range("C" & ligne) = "Normale" Then
.Range("A" & ligne & ":K" & ligne).Copy _
Sheets("Analyse SLA5").Cells(Rows.Count, 10).End(xlUp)(2).Resize(, 4)
ElseIf .Range("I" & ligne) > 5 And .Range("C" & ligne) = "Complexe" Then
.Range("A" & ligne & ":K" & ligne).Copy _
Sheets("Analyse SLA5").Cells(Rows.Count, 10).End(xlUp)(2).Resize(, 4)
End If
Next ligne
End With
End Sub