Sub NouvelleEntreprise()
'
' NouvelleEntreprise Macro
'
'on cherche le numéro de la dernière entreprise (pour éviter un bug au cas où l'on veut créer une entreprise qui existe déjà
For Each ws In Worksheets
If ws.Name Like "*Entreprise*" Then ' "Avancement total" Then
Num = WorksheetFunction.Substitute(ws.Name, "Entreprise ", "")
LastEntreprise = WorksheetFunction.Max(LastEntreprise, Num)
End If
Next ws
'on copie la dernière entreprise et on lui donne un nom
Sheets("Entreprise " & LastEntreprise).Copy after:=ActiveSheet
Sheets("Entreprise " & LastEntreprise & " (2)").Name = "Entreprise " & LastEntreprise + 1
Sheets("Entreprise " & LastEntreprise + 1).Range("B2") = "Entreprise " & LastEntreprise + 1
'on copie la zone B7:AL7
Range("B7:AL7").Copy
'dans la feuille avancement
Sheets("Avancement total").Select
'on recopie la ligne 11
Rows("11:11").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'et on fait le copier coller
Range("B11").Select
ActiveSheet.Paste Link:=True
Range("A11").Formula = "='Entreprise " & LastEntreprise + 1 & "'!B2"
End Sub