Sub CopieFeuille()
Dim Ws As Worksheet
'Evite le message d'erreur si la feuille n'existe pas.
On Error Resume Next
Set Ws = Sheets(Sheets("ESSAI").Range("A1").Value)
On Error GoTo 0
'(Ws = Nothing quand l'objet attribué à la variable n'existe pas)
If Not Ws Is Nothing Then
MsgBox "La feuille existe dans le classeur."
Else
Sheets("TEST").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("complement").Range("A1").Value
End If
End Sub