Sub insertion()
Dim i As Long
Worksheets("CR_INTER").Activate
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Not Intersect(Range("A" & i), Selection) Is Nothing Then
Rows(i).Resize(2).Insert
Range("A" & i + 1).Value = Date
Range("B" & i + 1).Value = Time
'Range("I" & i + 1).Value = ActiveWorkbook("GPS").Sheets("feuil1").Cells(2, 5)
'Range("J" & i + 1).Value = ActiveWorkbook("GPS").Sheets("feuil1").Cells(2, 3)
'Range("L" & i + 1).Value = ActiveWorkbook("GPS").Sheets("feuil1").Cells(2, 4)
'Range("I" & i + 2).Value = ActiveWorkbook("GPS").Sheets("feuil1").Cells(2, 8)
'Range("J" & i + 2).Value = ActiveWorkbook("GPS").Sheets("feuil1").Cells(2, 6)
'Range("L" & i + 2).Value = ActiveWorkbook("GPS").Sheets("feuil1").Cells(2, 7)
End If
Next
End Sub