Je mets la macro que j'ai créer en une semaine....
Max : réclame un format numérique pour fonctionner
IsDate : réclame un format Date pour fonctionner
A la fin je dois retrouver le format Date que pour les dates.
En plus je n'arrive pas à arrêter la boucle au bon moment.
Sub Bouton3_Cliquer()
Sheets("Etape1").Select
Columns("I:I").Select
Selection.NumberFormat = "General"
DL = Cells(Cells.Rows.Count, "I").End(xlUp).Row
V = Application.WorksheetFunction.CountIf(Range("I1", "I" & DL), "<" & Date)
Set myRange = Worksheets("Etape1").Range("I:I")
Max = Application.WorksheetFunction.Max(myRange)
Range("I1").Select
Cells.Find(What:=Max, After:=ActiveCell).Activate
r = ActiveCell.Row
'Etape1
Columns("I:I").Select
Selection.NumberFormat = "dd/mm/yyyy"
For L = 1 To r
For m = 13 To r
If IsDate(Range("I" & m).Text) Then
Sheets("Recap.").Select
Range("A" & L).Value = Sheets("Etape1").Range("I" & m).Value
Range("B" & L).Value = Sheets("Etape1").Range("DI" & m).Value
Range("C" & L).Value = Sheets("Etape1").Range("DQ" & m).Value
Range("D" & L).Value = Sheets("Etape1").Range("DY" & m).Value
L = L + 1
Else
Sheets("Etape1").Select
End If
Next m
Next
End Sub