Comment exporter une feuille vba

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

Private Sub Workbook_Open()
For Each sh In Sheets
  sh.Protect "mdp", userinterfaceonly = True
Next
End Sub