Bonjour Cvoexcel, bonjour le forum,
Je pense que la macro événementielle Change devrait convenir, avec un code (à adapter) du style :
Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
If Target.Address <> "$A$1" Then Exit Sub 'si le changement a lieu ailleurs qu'en A1 (à adapter à ton cas), sort de la procédure
If Target.Value > 1 Then 'condition si A1 est supérieur à 1
Me.Copy after:=Sheets(Sheets.Count) 'copy l'onge en dernière position (position à adapter à ton cas)
ActiveSheet.Name = "Le nom que tu veux" 'renomme l'onglet (nom à adapter à ton cas)
End If 'fin de la condition
End Sub