ah non! J'ai bousiller la macro! a l'aide! La ligne
If t(i, 1) <> t(n, 1) Then n = n + 1: t(n, 1) = t(i, 1)
Voici la macro:
Dim sh As Worksheet, source As Range, t, i&, n&, idx&, ti
ti = Timer: Application.ScreenUpdating = False
Worksheets("Détail_Hre_FT").Copy before:=Worksheets(1)...