Sub TESTS()
Dim alt As Variant
With Worksheets("Inscription")
'derniere cellule non vide colonne B
derlig = .Range("B" & Rows.Count).End(xlUp).Row
'mise en memoire plage cellules
Set plage = .Range("B2:B" & derlig)
End With
'boucle balayage plage
b = 1
For Each cel In plage
a = 0
b = b + 1
With Sheets("Inscription")
alt = Application.WorksheetFunction.HLookup("Lettre", Sheets("Inscription").Range("A1:F75"), b, False)
If alt = "A" Then GoTo Suite2
' If Worksheets("Inscription").Range("F" & b).Value = "A" Then GoTo Suite2
End With
For Each sh In Sheets
If sh.Name = cel.Value Then a = a + 1
Next sh
If a > 0 Then GoTo Suite2
' Création d'une nouvelle feuille
Sheets.Add After:=Sheets(Sheets.Count)
'nom feuille
ActiveSheet.Name = cel.Value
Suite2:
Next
End Sub