bonsoir tous le monde
voila j'ai le code suivant :
Sub TheDate()
Dim dat As Date, t, i&, s, j%, m1$, m2$
dat = Date + 30
With Feuil16 'CodeName de la feuille
t = .Range("A9:L" & .Range("L" & Rows.Count).End(xlUp).Row)
End With
For i = 1 To UBound(t)
s...