Oui merci ca a marche sauf pour la colonne O qui ne se complete j'ai essaye de rajouter comme suis mais ca ne marche pas
Sub Remplit()
Dim tablo, ValA, A%, M%, N%, DL%, L1%, L2%, Nb%
A = 1: M = 13: N = 14: O = 15: Nb = 0 ' pour simplifier la lecture
Application.ScreenUpdating = False
DL =...