Macro Copie/Colle feuille - ERREUR

[yoyo69]

Bonsoir,

Pourquoi ce code de copie de feuille,ne fonctionne pas sous excel2007.
Pour plus de précisions, sur excel 2003 elle marche correctement.
Sur excel 2007,ça fonctionne si feuille "affichée",mais pas si feuille "masquée". La macro execute la copie du modele, mais elle la colle sur unefeuille existante

Private Sub Nouveau_Click()
If ActiveWorkbook.Name = ("DEVIS.xls") Then
MsgBox "Veuillez retourner dans le devis"
Exit Sub
End If
Dim Temp As String
Dim NumFeuille As Integer
Dim Sh As Worksheet
For Each Sh In Worksheets
If Left(Sh.Name, 5) = "POSTE" Then
If Val(Right(Sh.Name, 2)) > NumFeuille Then
NumFeuille = Val(Right(Sh.Name, 2))
End If
End If
Next
NumFeuille = NumFeuille + 1
Temp = ActiveSheet.Name
Worksheets("POSTE 0").Copy before:=Sheets("-DEVIS-")
ActiveSheet.Name = "POSTE" & Format(NumFeuille, " 0")
ActiveSheet.Visible = True
ActiveCombobox ' Active la macro
End Sub

Cordialement Yoyo