salut
un autre code
Sub Calcule()
Dim sh As Worksheet, shh As Worksheet, _
j As Long, R As Long, _
RR As Long, LsRow As Long, _
C As Range, Ary()
Set sh = Sheets("Départ"): Set shh = Sheets("Arrivée")
With shh.Range("A2:F" & shh.Range("a" & Rows.Count).End(xlUp).Row + 2)...