Filtrer les données dans un tableau

Sub Macro1()
Dim M As Worksheet 'déclare la variable M (onglet Mesures)
Dim V As Worksheet 'déclare la variable V (onglet valeurs à afficher)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim NL As Long 'déclare la variable NL (Nombre de Lignes)
Dim NS As Variant 'déclare la variable NS (Nombre de Secondes)
Dim LI As Long 'déclare la variable LI (LIgne)
Dim TPB As Date 'déclare la variable TPB (TemPs de Base)
Dim K As Long 'déclare la variable K (incrément)
Dim I As Long 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau de Lignes)

Set M = Sheets("Mesures") 'définit l'onglet M
Set V = Sheets("valeurs à afficher") 'définit l'onglet V
V.Range("A1").CurrentRegion.ClearContents 'efface les éventuelles anciennes données de l'onglet V
TC = M.Range("A1").CurrentRegion 'définit le tableau de cellule TC
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
NS = Application.InputBox("Combien de secondes ?", "PAS DE TEMPS", Type:=1) 'définit la boîte d'entrée NS (nombre de secondes)
If NS = False Or NS = 0 Then Exit Sub 'si bouton "Annuler" ou égale à zéro sort de la procédure
NS = CInt(NS) 'convertis NS en entier (au cas où...)
LI = ActiveCell.Row 'définit la ligne LI (ligne de la cellule active)
'définit le temps de base TPB (temps de la cellule active)
TPB = TimeSerial(CInt(Split(TC(LI, 1), ".")(0)), CInt(Split(TC(LI, 1), ".")(1)), CInt(Split(TC(LI, 1), ".")(2)))
ReDim TL(1 To 4, 1 To 1) 'redimensionne le tabelau TL (4 lignes, 1 colonne)
For J = 1 To 4 'boucle sur les 4 colonnes de TC
    TL(J, 1) = TC(LI, J) 'récupère dans la ligne J colonne 1 de TL la valeur de la ligne LI colonne J de TC
Next J 'prochaine colonne de la boucle
K = 2 'définit la variable K
For I = LI To NL 'boucle 1 : sur toutes les lignes I de TC à partir de la ligne LI de la cellule active
        'condition : si le temps en ligne I colonne 1 de TC est egal au temps de base TPB plus NS secondes
        If TimeSerial(CInt(Split(TC(I, 1), ".")(0)), CInt(Split(TC(I, 1), ".")(1)), CInt(Split(TC(I, 1), ".")(2))) = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) Then
        ReDim Preserve TL(1 To 4, 1 To K) 'redimensionne le tableau de ligne TL (4 lignes, K colonnes)
        For J = 1 To 4 'boucle 2 : sur les 4 colonnes de TC
            TL(J, K) = TC(I, J) 'récupère dans la ligne de TK la valeur de la colonne de TC (transposition)
        Next J 'prochaine colonne de la boucle 3
        K = K + 1 'incrémente K (ajoute une colonne à TL
        TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) 'redéfinit le temps de base (ancien temps de base plus NS secondes)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
If K > 1 Then 'condition : si K est supérieur à 1
    V.Range("A1").Resize(1, 4).Value = Application.Index(TC, 1) 'reçupère la première ligne de TC
    V.Range("A2").Resize(UBound(TL, 2), UBound(TL, 1)).Value = Application.Transpose(TL) 'renvoie en A2 redimensionnée le tableau TL transposé
End If 'fin de la condition
V.Activate 'active l'onglet V
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim V As Worksheet 'déclare la variable V (onglet valeurs à afficher)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim NL As Long 'déclare la variable NL (Nombre de Lignes)
Dim NS As Variant 'déclare la variable NS (Nombre de Secondes)
Dim LI As Long 'déclare la variable LI (LIgne)
Dim TPB As Date 'déclare la variable TPB (TemPs de Base)
Dim K As Long 'déclare la variable K (incrément)
Dim I As Long 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau de Lignes)

If Target.Column <> 1 Or Target.Row = 1 Then Exit Sub 'si le boucle-clic a lieu ailleurs que dans la colonne 1 (=A) ou dans la ligne 1, sort de la procédure
Cancel = True 'evite le mode [Édition] lié au double-clic
Set V = Sheets("valeurs à afficher") 'définit l'onglet V
V.Range("A1").CurrentRegion.ClearContents 'efface les éventuelles anciennes données de l'onglet V
TC = Range("A1").CurrentRegion 'définit le tableau de cellule TC
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
NS = Application.InputBox("Combien de secondes ?", "PAS DE TEMPS", Type:=1) 'définit la boîte d'entrée NS (nombre de secondes)
If NS = False Or NS = 0 Then Exit Sub 'si bouton "Annuler" ou égale à zéro sort de la procédure
NS = CInt(NS) 'convertis NS en entier (au cas où...)
LI = Target.Row 'définit la ligne LI (ligne de la cellule double-cliquée)
'définit le temps de base TPB (temps de la cellule active)
TPB = TimeSerial(CInt(Split(TC(LI, 1), ".")(0)), CInt(Split(TC(LI, 1), ".")(1)), CInt(Split(TC(LI, 1), ".")(2)))
ReDim TL(1 To 4, 1 To 1) 'redimensionne le tabelau TL (4 lignes, 1 colonne)
For J = 1 To 4 'boucle sur les 4 colonnes de TC
    TL(J, 1) = TC(LI, J) 'récupère dans la ligne J colonne 1 de TL la valeur de la ligne LI colonne J de TC
Next J 'prochaine colonne de la boucle
K = 2 'définit la variable K
For I = LI To NL 'boucle 1 : sur toutes les lignes I de TC à partir de la ligne LI de la cellule active
        'condition : si le temps en ligne I colonne 1 de TC est egal au temps de base TPB plus NS secondes
        If TimeSerial(CInt(Split(TC(I, 1), ".")(0)), CInt(Split(TC(I, 1), ".")(1)), CInt(Split(TC(I, 1), ".")(2))) = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) Then
        ReDim Preserve TL(1 To 4, 1 To K) 'redimensionne le tableau de ligne TL (4 lignes, K colonnes)
        For J = 1 To 4 'boucle 2 : sur les 4 colonnes de TC
            TL(J, K) = TC(I, J) 'récupère dans la ligne de TK la valeur de la colonne de TC (transposition)
        Next J 'prochaine colonne de la boucle 3
        K = K + 1 'incrémente K (ajoute une colonne à TL
        TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) 'redéfinit le temps de base (ancien temps de base plus NS secondes)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
If K > 1 Then 'condition : si K est supérieur à 1
    V.Range("A1").Resize(1, 4).Value = Application.Index(TC, 1) 'reçupère la première ligne de TC
    V.Range("A2").Resize(UBound(TL, 2), UBound(TL, 1)).Value = Application.Transpose(TL) 'renvoie en A2 redimensionnée le tableau TL transposé
End If 'fin de la condition
V.Activate 'active l'onglet V
End Sub

Sub Macro1()
Dim M As Worksheet 'déclare la variable M (onglet Mesures)
Dim V As Worksheet 'déclare la variable V (onglet valeurs à afficher)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim NL As Long 'déclare la variable NL (Nombre de Lignes)
Dim NS As Variant 'déclare la variable NS (Nombre de Secondes)
Dim LI As Long 'déclare la variable LI (LIgne)
Dim TPB As Date 'déclare la variable TPB (TemPs de Base)
Dim K As Long 'déclare la variable K (incrément)
Dim I As Long 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau de Lignes)

Set M = Sheets("Mesures") 'définit l'onglet M
Set V = Sheets("valeurs à afficher") 'définit l'onglet V
V.Range("A1").CurrentRegion.ClearContents 'efface les éventuelles anciennes données de l'onglet V
TC = M.Range("A1").CurrentRegion 'définit le tableau de cellule TC
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
NS = Application.InputBox("Combien de secondes ?", "PAS DE TEMPS", Type:=1) 'définit la boîte d'entrée NS (nombre de secondes)
If NS = False Or NS = 0 Then Exit Sub 'si bouton "Annuler" ou égale à zéro sort de la procédure
NS = CInt(NS) 'convertis NS en entier (au cas où...)
LI = ActiveCell.Row 'définit la ligne LI (ligne de la cellule active)
'définit le temps de base TPB (temps de la cellule active)
TPB = TimeSerial(CInt(Split(TC(LI, 1), ".")(0)), CInt(Split(TC(LI, 1), ".")(1)), CInt(Split(TC(LI, 1), ".")(2)))
ReDim TL(1 To 4, 1 To 1) 'redimensionne le tabelau TL (4 lignes, 1 colonne)
For J = 1 To 4 'boucle sur les 4 colonnes de TC
    TL(J, 1) = TC(LI, J) 'récupère dans la ligne J colonne 1 de TL la valeur de la ligne LI colonne J de TC
Next J 'prochaine colonne de la boucle
K = 2 'définit la variable K
For I = LI To NL 'boucle 1 : sur toutes les lignes I de TC à partir de la ligne LI de la cellule active
        'condition : si le temps en ligne I colonne 1 de TC est egal au temps de base TPB plus NS secondes
        If TimeSerial(CInt(Split(TC(I, 1), ".")(0)), CInt(Split(TC(I, 1), ".")(1)), CInt(Split(TC(I, 1), ".")(2))) = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) Then
        ReDim Preserve TL(1 To 4, 1 To K) 'redimensionne le tableau de ligne TL (4 lignes, K colonnes)
        For J = 1 To 4 'boucle 2 : sur les 4 colonnes de TC
            TL(J, K) = TC(I, J) 'récupère dans la ligne de TK la valeur de la colonne de TC (transposition)
        Next J 'prochaine colonne de la boucle 3
        K = K + 1 'incrémente K (ajoute une colonne à TL
        TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) 'redéfinit le temps de base (ancien temps de base plus NS secondes)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
If K > 1 Then 'condition : si K est supérieur à 1
    V.Range("A1").Resize(1, 4).Value = Application.Index(TC, 1) 'reçupère la première ligne de TC
    For I = 1 To UBound(TL, 2)
        V.Cells(I + 1, 1).Resize(1, 4).Value = Application.Transpose(Application.Index(TL, , I))
    Next I
    'V.Range("A2").Resize(UBound(TL, 2), UBound(TL, 1)).Value = Application.Transpose(TL) 'renvoie en A2 redimensionnée le tableau TL transposé
End If 'fin de la condition
V.Activate 'active l'onglet V
End Sub

Sub Macro1()
Dim M As Worksheet 'déclare la variable M (onglet Mesures)
Dim V As Worksheet 'déclare la variable V (onglet valeurs à afficher)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim NL As Long 'déclare la variable NL (Nombre de Lignes)
Dim NS As Variant 'déclare la variable NS (Nombre de Secondes)
Dim LI As Long 'déclare la variable LI (LIgne)
Dim TPB As Date 'déclare la variable TPB (TemPs de Base)
Dim K As Long 'déclare la variable K (incrément)
Dim I As Long 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau de Lignes)

Set M = Sheets("Mesures") 'définit l'onglet M
Set V = Sheets("valeurs à afficher") 'définit l'onglet V
V.Range("A1").CurrentRegion.ClearContents 'efface les éventuelles anciennes données de l'onglet V
TC = M.Range("A1").CurrentRegion 'définit le tableau de cellule TC
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
TPB = TimeSerial(CInt(Split(TC(1, 1), ".")(0)), CInt(Split(TC(1, 1), ".")(1)), CInt(Split(TC(1, 1), ".")(2))) 'définit le temps de base TBP (de la première cellule)
For I = 1 To UBound(TC, 1) 'boucle sur toutes les lignes I du tableau de cellules TC
    TC(I, 1) = Format(TPB, "hh:mm:ss") 'renvoie le temps de base dans la ligne I colonne 1 de TC
    TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + 10) 'incrémente le temps de base de 10 secondes
Next I 'prochaine ligne de la boucle
M.Range("A1").Resize(UBound(TC, 1), 1).Value = TC 'renvoie le tableau TC dans la cellule A1 redimensionnée de l'onglet M

NS = Application.InputBox("Combien de secondes ?", "PAS DE TEMPS", Type:=1) 'définit la boîte d'entrée NS (nombre de secondes)
If NS = False Or NS = 0 Then Exit Sub 'si bouton "Annuler" ou égale à zéro sort de la procédure
NS = CInt(NS) 'convertis NS en entier (au cas où...)
LI = ActiveCell.Row 'définit la ligne LI (ligne de la cellule active)
'définit le temps de base TPB (temps de la cellule active)
TPB = TimeSerial(Hour(TC(LI, 1)), Minute(TC(LI, 1)), Second(TC(LI, 1)))
ReDim TL(1 To 4, 1 To 1) 'redimensionne le tabelau TL (4 lignes, 1 colonne)
For J = 1 To 4 'boucle sur les 4 colonnes de TC
    TL(J, 1) = TC(LI, J) 'récupère dans la ligne J colonne 1 de TL la valeur de la ligne LI colonne J de TC
Next J 'prochaine colonne de la boucle
K = 2 'définit la variable K
For I = LI To NL 'boucle 1 : sur toutes les lignes I de TC à partir de la ligne LI de la cellule active
        'condition : si le temps en ligne I colonne 1 de TC est egal au temps de base TPB plus NS secondes
        If TimeSerial(Hour(TC(I, 1)), Minute(TC(I, 1)), Second(TC(I, 1))) = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) Then
        ReDim Preserve TL(1 To 4, 1 To K) 'redimensionne le tableau de ligne TL (4 lignes, K colonnes)
        For J = 1 To 4 'boucle 2 : sur les 4 colonnes de TC
            TL(J, K) = TC(I, J) 'récupère dans la ligne de TK la valeur de la colonne de TC (transposition)
        Next J 'prochaine colonne de la boucle 3
        K = K + 1 'incrémente K (ajoute une colonne à TL
        TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) 'redéfinit le temps de base (ancien temps de base plus NS secondes)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
If K > 1 Then 'condition : si K est supérieur à 1
    V.Range("A1").Resize(UBound(TL, 2), UBound(TL, 1)).Value = Application.Transpose(TL)
End If 'fin de la condition
V.Activate 'active l'onglet V
End Sub

Sub Macro1()
Dim AD As String 'déclare la variable AD (ADresse)
Dim M As Worksheet 'déclare la variable M (onglet Mesures)
Dim V As Worksheet 'déclare la variable V (onglet valeurs à afficher)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim NL As Long 'déclare la variable NL (Nombre de Lignes)
Dim NS As Variant 'déclare la variable NS (Nombre de Secondes)
Dim LI As Long 'déclare la variable LI (LIgne)
Dim TPB As Date 'déclare la variable TPB (TemPs de Base)
Dim K As Long 'déclare la variable K (incrément)
Dim I As Long 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau de Lignes)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
AD = ActiveCell.Address(0, 0) 'définit l'adresse AD de la cellule active
Sheets("Mesures").Copy After:=Sheets(Sheets.Count) 'copie l'onglet M en dernière position
Set M = ActiveSheet 'définit l'onglet M
Set V = Sheets("valeurs à afficher") 'définit l'onglet V
V.Range("A1").CurrentRegion.ClearContents 'efface les éventuelles anciennes données de l'onglet V
TC = M.Range("A1").CurrentRegion 'définit le tableau de cellule TC
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
TPB = TimeSerial(CInt(Split(TC(1, 1), ".")(0)), CInt(Split(TC(1, 1), ".")(1)), CInt(Split(TC(1, 1), ".")(2))) 'définit le temps de base TBP (de la première cellule)
For I = 1 To UBound(TC, 1) 'boucle sur toutes les lignes I du tableau de cellules TC
    TC(I, 1) = Format(TPB, "hh:mm:ss") 'renvoie le temps de base dans la ligne I colonne 1 de TC
    TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + 10) 'incrémente le temps de base de 10 secondes
Next I 'prochaine ligne de la boucle
M.Range("A1").Resize(UBound(TC, 1), 1).Value = TC 'renvoie le tableau TC dans la cellule A1 redimensionnée de l'onglet M
M.Range(AD).Select 'sélectionne dans l'onglet M la même cellule que la cellule active de l'onglet "Mesures"
NS = Application.InputBox("Combien de secondes ?", "PAS DE TEMPS", Type:=1) 'définit la boîte d'entrée NS (nombre de secondes)
If NS = False Or NS = 0 Then Exit Sub 'si bouton "Annuler" ou égale à zéro sort de la procédure
NS = CInt(NS) 'convertis NS en entier (au cas où...)
LI = ActiveCell.Row 'définit la ligne LI (ligne de la cellule active)
'définit le temps de base TPB (temps de la cellule active)
TPB = TimeSerial(Hour(TC(LI, 1)), Minute(TC(LI, 1)), Second(TC(LI, 1)))
ReDim TL(1 To 4, 1 To 1) 'redimensionne le tabelau TL (4 lignes, 1 colonne)
For J = 1 To 4 'boucle sur les 4 colonnes de TC
    TL(J, 1) = TC(LI, J) 'récupère dans la ligne J colonne 1 de TL la valeur de la ligne LI colonne J de TC
Next J 'prochaine colonne de la boucle
K = 2 'définit la variable K
For I = LI To NL 'boucle 1 : sur toutes les lignes I de TC à partir de la ligne LI de la cellule active
        'condition : si le temps en ligne I colonne 1 de TC est egal au temps de base TPB plus NS secondes
        If TimeSerial(Hour(TC(I, 1)), Minute(TC(I, 1)), Second(TC(I, 1))) = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) Then
        ReDim Preserve TL(1 To 4, 1 To K) 'redimensionne le tableau de ligne TL (4 lignes, K colonnes)
        For J = 1 To 4 'boucle 2 : sur les 4 colonnes de TC
            TL(J, K) = TC(I, J) 'récupère dans la ligne de TK la valeur de la colonne de TC (transposition)
        Next J 'prochaine colonne de la boucle 3
        K = K + 1 'incrémente K (ajoute une colonne à TL
        TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) 'redéfinit le temps de base (ancien temps de base plus NS secondes)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
If K > 1 Then 'condition : si K est supérieur à 1
    V.Range("A1").Resize(UBound(TL, 2), UBound(TL, 1)).Value = Application.Transpose(TL)
End If 'fin de la condition
V.Activate 'active l'onglet V
Application.DisplayAlerts = False 'empêche les message d'Escel
M.Delete 'supprime l'onglet M
Application.DisplayAlerts = True 'permet les message d'Excel
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub

• Copie l'onglet Mesures en dernière position
• utilise la copie pour :

• supprime la copie

Sub Macro1()
Dim M As Worksheet 'déclare la variable M (onglet Mesures)
Dim V As Worksheet 'déclare la variable V (onglet valeurs à afficher)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim NL As Long 'déclare la variable NL (Nombre de Lignes)
Dim NS As Variant 'déclare la variable NS (Nombre de Secondes)
Dim T_min As Variant 'déclare la variable T_min (Temps minimal)
Dim T_max As Variant 'déclare la variable T_max (Temps maximal)
Dim LID As Long 'déclare la variable LID (LIgne Début)
Dim LIF As Long 'déclare la variable LIF (LIgne Fin)
Dim TPB As Date 'déclare la variable TPB (TemPs de Base)
Dim K As Long 'déclare la variable K (incrément)
Dim I As Long 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau de Lignes)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Sheets("Mesures").Copy After:=Sheets(Sheets.Count) 'copie l'onglet M en dernière position
Set M = ActiveSheet 'définit l'onglet M
Set V = Sheets("valeurs à afficher") 'définit l'onglet V
V.Range("A1").CurrentRegion.ClearContents 'efface les éventuelles anciennes données de l'onglet V
TC = M.Range("A1").CurrentRegion 'définit le tableau de cellules TC
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
'définit le temps de base TBP (de la première cellule) au format : numéro de série de temps
TPB = TimeSerial(CInt(Split(TC(1, 1), ".")(0)), CInt(Split(TC(1, 1), ".")(1)), CInt(Split(TC(1, 1), ".")(2)))
For I = 1 To UBound(TC, 1) 'boucle sur toutes les lignes I du tableau de cellules TC
    TC(I, 1) = Format(TPB, "hh:mm:ss") 'renvoie le temps de base dans la ligne I colonne 1 de TC
    TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + 10) 'incrémente le temps de base de 10 secondes
Next I 'prochaine ligne de la boucle
M.Range("A1").Resize(UBound(TC, 1), 1).Value = TC 'renvoie le tableau TC dans la cellule A1 redimensionnée de l'onglet M

deb: 'étiquette
NS = Application.InputBox("Combien de secondes ?", "PAS DE TEMPS", Type:=1) 'définit la boîte d'entrée NS (nombre de secondes)
If NS = False Or NS = 0 Then GoTo fin 'si bouton "Annuler" ou égale à zéro va à l'étiquette "fin"
NS = CInt(NS) 'convertis NS en entier (au cas où...)
If NS Mod 10 <> 0 Then 'condition 1 : si le pas n'est pas un multiple de 10
    'condition 2 : si "Oui" au message
    If MsgBox("Le pas de temps que vous avez tapé n'est pas valide !" & Chr(13) & "Voulez-vous recommencer ?", vbYesNo, "ATTENTION!") = vbYes Then
        GoTo deb 'relance la boite d'entrée via l'étiquette "un"
    Else 'sinon
        GoTo fin 'va à l'étiquette "fin"
    End If 'fin de la condition 2
End If 'fin de la condition 1

un: 'étiquette
T_min = Application.InputBox("Temps Minimal au format hh:mm:ss. Tapez " & Chr(34) & "D" & Chr(34) & " pour commencer du début !", "TEMPS DU DÉBUT", Type:=2) 'définit la boîte d'entrée T_min
If T_min = False Or T_min = 0 Then GoTo fin 'si bouton "Annuler" ou T_min est égale à zéro, va à l'étiquette fin
If UCase(T_min) = "D" Then LID = 1: GoTo suite1 'si T_min vaut "d" ou "D", définit la ligne LID, va à l'étiquette "suite1"
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
T_min = Format(CDate(T_min), "hh:mm:ss") 'redéfinit T_min au format date hh:mm:ss
T_min = TimeSerial(Hour(T_min), Minute(T_min), Second(T_min)) 'redéfinit T_min au format : numéro de série de temps
LID = M.Columns(1).Find(T_min, , xlFormulas, xlWhole).Row 'définit la ligne de départ LID (génère une erreur si T_min n'est pas trouvé dans la colonne 1 de l'onglet M)
If Err <> 0 Then 'condition 1 : si une erreur a été générée
    Err.Clear 'supprime l'erreur
    'condition 2 : si "Oui" au message
    If MsgBox("Le temps de départ que vous avez tapé n'est pas valide !" & Chr(13) & "Voulez-vous recommencer ?", vbYesNo, "ATTENTION!") = vbYes Then
        GoTo un 'relance la boite d'entrée via l'étiquette "un"
    Else 'sinon
        GoTo fin 'va à l'étiquette "fin"
    End If 'fin de la condition 2
End If 'fin de la condition 1
On Error GoTo 0 'annule la gestion des erreurs
suite1: 'étiquette

deux: 'étiquette
T_max = Application.InputBox("Temps Maximal au format hh:mm:ss. Tapez " & Chr(34) & "F" & Chr(34) & " pour aller jusqu'a la fin !", "TEMPS DE FIN", Type:=2) 'définit la boîte d'entrée T_max
If T_max = False Or T_max = 0 Then GoTo fin 'si bouton "Annuler" ou T_max est égale à zéro, va à l'étiquette "fin"
If UCase(T_max) = "F" Then LIF = NL: GoTo suite2 'si T=max vaut "f" ou "F", définit la ligne LIF, va à l'étiquette "suite2"
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
T_max = Format(CDate(T_max), "hh:mm:ss") 'redéfinit T_max au format date hh:mm:ss
T_max = TimeSerial(Hour(T_max), Minute(T_max), Second(T_max)) 'redéfinit T_min au format : numéro de série de temps
LIF = M.Columns(1).Find(T_max, , xlFormulas, xlWhole).Row 'définit la ligne de fin LIF (génère une erreur si T_max n'est pas trouvé dans la colonne 1 de l'onglet M)
If Err <> 0 Then 'condition 1 : si une erreur a été générée
    Err.Clear 'supprime l'erreur
    'condition 2 : si "Oui" au message
    If MsgBox("Le temps de fin que vous avez tapé n'est pas valide !" & Chr(13) & "Voulez-vous recommencer ?", vbYesNo, "ATTENTION!") = vbYes Then
        GoTo deux 'relance la boite d'entrée via l'étiquette "deux"
    Else 'sinon
        GoTo fin 'va à l'étiquette "fin"
    End If 'fin de la condition 2
End If 'fin de la condition 1
On Error GoTo 0 'annule la gestion des erreurs
suite2: 'étiquette

'définit le temps de base TPB (temps de la cellule active)
TPB = TimeSerial(Hour(TC(LID, 1)), Minute(TC(LID, 1)), Second(TC(LID, 1)))
ReDim TL(1 To 4, 1 To 1) 'redimensionne le tabelau TL (4 lignes, 1 colonne)
For J = 1 To 4 'boucle sur les 4 colonnes de TC
    TL(J, 1) = TC(LID, J) 'récupère dans la ligne J colonne 1 de TL la valeur de la ligne LI colonne J de TC
Next J 'prochaine colonne de la boucle
K = 2 'définit la variable K
For I = LID To LIF 'boucle 1 : sur toutes les lignes I de TC à partir de la ligne LI de la cellule active
        'condition : si le temps en ligne I colonne 1 de TC est egal au temps de base TPB plus NS secondes
        If TimeSerial(Hour(TC(I, 1)), Minute(TC(I, 1)), Second(TC(I, 1))) = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) Then
        ReDim Preserve TL(1 To 4, 1 To K) 'redimensionne le tableau de ligne TL (4 lignes, K colonnes)
        For J = 1 To 4 'boucle 2 : sur les 4 colonnes de TC
            TL(J, K) = TC(I, J) 'récupère dans la ligne de TK la valeur de la colonne de TC (transposition)
        Next J 'prochaine colonne de la boucle 3
        K = K + 1 'incrémente K (ajoute une colonne à TL
        TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) 'redéfinit le temps de base (ancien temps de base plus NS secondes)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
If K > 1 Then 'condition : si K est supérieur à 1
    V.Range("A1").Resize(UBound(TL, 2), UBound(TL, 1)).Value = Application.Transpose(TL)
End If 'fin de la condition
V.Activate 'active l'onglet V
fin: 'étiquette
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
Application.DisplayAlerts = False 'empêche les message d'Excel
M.Delete 'supprime l'onglet M
Application.DisplayAlerts = True 'permet les message d'Excel
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub