Bonjour à tous,
Voici mon code pour lequel j'ai un pb :
sub commentaire
[ABX2:ACB10000].ClearContents
jour = Application.Match(CDbl(Date), Range("1:1"), 0)
For i = jour To 744 Step 2
For j = 5 To [A4].End(xlDown).Row
If Cells(j, i) <> "" Then
Range("ABY10000").End(xlUp).Offset(1, 0) =...