'Saisie du nombre de tranches d'analyse
Do
NbTr = InputBox("Entrez une valeur de 1 à 256", "NOMBRE DE TRANCHES DE 2 MINUTES", 10)
Loop Until (Val(NbTr) > 0) And (Val(NbTr) < 257)
'Création des feuilles supplémentaires pour les intervals
Dim s As Worksheet
For p = 1 To NbTr
Set s = Sheets.Add(After:=Sheets(Sheets.Count))
s.Name = "Feuil" & 3 + p
Next p
'Copie des données de la tranche 1 à la feuille 4
Dim wS As Worksheet 'Feuille source
Dim wD As Worksheet 'Feuille destination
'Dim Derlig As Integer 'Derniere ligne fichier source
'Affecte les feuilles sources/destination (de la copie)
Set wS = Sheets("Feuil3")
Set wD = Sheets("Feuil4")
J = 1
'Determine derniere ligne fichier source
Derlig = wS.Cells(65535, 5).End(xlUp).Row 'Derniére ligne rempli colonne 5 fichier source
If Derlig < 2 Then
MsgBox "Aucune données ", vbCritical
Exit Sub
End If
' Boucle sur lignes fichier source
For I = 2 To Derlig
If wS.Cells(I, 2) = Secteur And wS.Cells(I, 5) = 1 Then
'Copie ...
wD.Rows(J).Value = wS.Rows(I).Value
J = J + 1
End If
Next I