Sub Formules_convertir_selon_date()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "s").End(xlUp).Row To 2 Step -1
If Range("s" & i) < Range("s1") Then Range("s" & i).Resize(, 7).Value = Range("s" & i).Resize(, 7).Value
Next i
Application.ScreenUpdating = True
End Sub