Bonjour,
@jlbcall : Ainsi ta macro est plus lisible (en utilisant </>)
Sub JLB
Dim LO_A, LO_R, Na, Nr, Ta, Tr, Temp, bAller, dMin, dHeure As Double, s, r, CNT(1)
Set LO_A = Range("Aller").ListObject 'les 2 TS
Set LO_R = Range("Retour").ListObject
Na = LO_A.ListColumns.Count 'nombre de colonnes...