Option Explicit
Sub Copie()
Dim Derlig&, i&
Derlig = Range("C" & Rows.Count).End(xlUp).Row + 1
For i = 15 To 87
If Range("I" & i) <> "" Then
Range("C" & Derlig) = Range("C" & i)
Range("D" & Derlig) = Range("I" & i)
End If
Derlig = Range("C" & Rows.Count).End(xlUp).Row + 1
Next i
Range("C91:D" & Derlig).Sort Key1:=[D90], Order1:=xlAscending, Header:=xlNo
MsgBox "Valeur copiée", vbInformation, "Copie"
End Sub