Sub ajout_feuilles()
On Error Resume Next 'feuille existante
Sheets([liste].Value).Activate
If Err = 0 Then
MsgBox [liste] & vbLf & "Cette feuille est déjà existante.", , "Information"
Else
Sheets("ACR vierge").Copy , After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = [liste]
End If
End Sub