Sub construit()
finLg = Range("Suivi!A65536").End(xlUp).Row
num = Val(Range("Suivi!A" & finLg)) + 1
With Feuil7
.Range("A" & finLg + 1) = num
.Range("B" & finLg + 1) = Date
.Range("C" & finLg + 1) = Time
.Range("D" & finLg + 1) = Feuil1.[M26]
.Range("E" & finLg + 1) = Feuil1.[H31]
End With
Feuil1.Copy
With ActiveWorkbook
.ActiveSheet.Name = "DE_N°" & num & [M26]
.ActiveSheet.Range("P20") = num
' .SaveAs nomde fichier à définir
End With
End Sub