Sub Bouton2_Clic()
Marqueur = 0
For Each X In Sheets
If X.Name = Sheets("1").Range("h6").Text Then Marqueur = 1
Next
If Marqueur = 0 Then
Sheets("2").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("1").Range("h6").Text
Sheets("1").Range("b65536").End(xlUp).Offset(1, 0).Value = Sheets("1").Range("h6").Value
Else
MsgBox "L'onglet existe déjà"
Exit Sub
End If
End Sub