Historiser des lignes spécifiques dans un autre tableau

Bonjour chers membres!

Je voudrais en effet historiser des lignes spécifiques sur un nouvel onglet.

En effet, sur le fichier joint, l'idée est de faire apparaître sur l'onglet "Historisation seuils franchis" uniquement les lignes dont les seuils

ont été dépassés sur l'onglet "Calculs ratios".

Pour la compréhension de la problématique, je l'ai fait manuellement ici sur le fichier .

Merci d'avance.

Excellemment votre

Bonjour Excellerateur

Voici une possibilité

Sub Historisation()
  Dim ShtH As Worksheet
  Dim dLig As Long, Lig As Long, NewLig As Long
  Set ShtH = Sheets("Historisation seuils franchis")
  With Sheets("Calculs ratios")
    dLig = .Range("A" & Rows.Count).End(xlUp).Row
    For Lig = 2 To dLig
      If .Range("G" & Lig) <> "" Or .Range("H" & Lig) <> "" Then
        NewLig = ShtH.Range("A" & Rows.Count).End(xlUp).Row + 1
        ShtH.Range("A" & NewLig).Value = .Range("A" & Lig).Value
        ShtH.Range("B" & NewLig).Value = .Range("G" & Lig).Value
        ShtH.Range("C" & NewLig).Value = .Range("H" & Lig).Value
      End If
    Next Lig
  End With
End Sub

@+

Bonjour tout le monde.

Merci beaucoup BrunoM45 le code marche très bien.

Excellemment vôtre