If IsError(Evaluate("='" & nomFeuille & "'!A1")) Then 'renvoie vrai si n'existe pas
nomFeuille ="Feuil3"
If IsError(Evaluate("='" & nomFeuille & "'!A1")) Then 'renvoie vrai si n'existe pas
code si feuille n'existe pas
else
code si feuille existe
end if
If IsError(Evaluate("=Feuil3!A1")) Then 'renvoie vrai si n'existe pas
code si feuille n'existe pas
else
code si feuille existe
end if
If Not IsError(Evaluate("=Feuil3!A1")) Then
code si feuille existe
else
code si feuille n'existe pas
end if
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Feuil3").Delete
On Error GoTo 0
nomFeuille = "PARIS"
If Not IsError(Evaluate("='" & nomFeuille & "'!A1")) Then Sheets("PARIS").Name = "PARIS2"
On Error Resume Next
Sheets("PARIS").Name = "PARIS2"
If Err = 0 Then Exit Sub 'si nécessaire
On Error GoTo 0
'---suite du code---