Sub test()
Dim i As Integer, x As Integer, Verif As Boolean
With Sheets("Données") '<-- adapter le nom de la feuille
'boucle de la ligne 1 à la dernière ligne de la colonne A
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
'si les 2 premières lettres sont DN
If Left(.Cells(i, 1), 2) = "DN" Then
'vérification si la feuille existe déjà
For x = 1 To Sheets.Count
If Sheets(x).Name = .Cells(i, 1) Then Verif = True
Next
'si elle n'existe pas on la crée
If Verif = False Then
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = .Cells(i, 1)
End If
Verif = False
End If
Next
End With
End Sub