Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, k, x, nb
Application.ScreenUpdating = False
If Target.Address <> "$D$7" Then Range("d7").Activate
nb = Range("d7")
For i = 1 To nb
Sheets("Colonne(1)").Copy After:=Sheets(i)
ActiveSheet.Name = "Colonne" & "(" & i + 1 & ")"
Next i
Range("d7").ClearContents
For Each x In ActiveWorkbook.Sheets
For k = 3 To ActiveWorkbook.Sheets.Count
If Sheets(k - 1).Name > Sheets(k).Name Then
Sheets(k - 1).Move After:=Sheets(k)
End If
Next
Next
End Sub