Sub CopieFeuille()
Dim NomFeuil As String, Ws As Worksheet
NomFeuil = Sheets("travail_fiche_identité").Range("B6")
For Each Ws In ActiveWorkbook.Sheets
If Ws.Name = NomFeuil Then
MsgBox "Regarde tu as déjà les infos que tu veux!!!"
Exit Sub
End If
Next
'Sheets("travail_fiche_identité").Visible = True '?
'Sheets("BD").Visible = True '?
Sheets("travail_fiche_identité").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = NomFeuil
'Sheets("travail_fiche_identité").Visible = False '?
'Sheets("BD").Visible = False '?
End Sub