La macro étant protéger je viens de la copier
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...