Sheets("stack").Activate
Sheets("stack").Range("I1:N3,B1:G3").Select
With Selection
.ClearContents
End With
derli = Sheets("Insertion").Range("A3000").End(xlUp).Row
Sheets("Insertion").Activate
If Sheets("Insertion").Range("j13").Value = "" Then
MsgBox ("Mettre un nom de fichier: condition initiale obligatoire")
Exit Sub
Else