Sub InsereFeuilleTest()
Dim f As Worksheet
Dim cpt_test As Integer
cpt_test = 0
For Each f In Worksheets
If Left(f.Name, 4) = "Test" Then
cpt_test = cpt_test + 1
End If
Next
If cpt_test <> 0 Then
Worksheets.Add after:=Worksheets("Test" & cpt_test)
ActiveSheet.Name = "Test" & cpt_test + 1
Else
Worksheets.Add
ActiveSheet.Name = "Test1"
End If
End Sub