Bonjour
Merci pour le retour, je viens de lancer la macro mais pour le moment ça me renvoi uniquement une ligne dans la feuille 2,
je vais essayer de regarder aussi de mon côté comment faire évoluer ton code.
Sub coupe()
With Sheets(2)
Set Z = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count, 1)).EntireRow
Z.Delete
End With
With Sheets(1)
flg = .Cells(.UsedRange.Rows.Count + 1, 2).End(xlUp).Row
For n = 2 To flg
If .Cells(n, 3) <> "" Then
Call cop(.Cells(n, 3))
End If
Next
End With
End Sub
Sub cop(cel)
kmd = Int(cel * 10): kmf = Int(cel.Offset(0, 1) * 10)
With Sheets(2)
For n = kmd To kmf
flg = .Cells(.UsedRange.Rows.Count + 1, 2).End(xlUp).Row
cel.EntireRow.Copy .Rows(flg + 1)
.Cells(flg + 1, 1) = n / 10
Next
End With
End Sub