[Excel] Extraction de données

Bonjour à tous,

Mon périple sur Excel continue dans l'optique de mon mémoire de master, et j'ai encore une question pour vos esprits brillants.

Dans le fichier lié suivant, il faudrait extraire, à part, toute la ligne correspondant à un "temps passé sur place" supérieur ou égal à 60 minutes et ceux dont on trouve la mention #NOMBRE!

Auriez-vous une manipulation ?

Cordialement,

bonsoir à tous,

extraction sur feuille "Extrait"

Sub Filtre()
Dim Lg%
    Lg = Range("a65536").End(xlUp).Row
    Application.ScreenUpdating = False
        Range("f4:f" & Lg) = "=IF(ISERR(a4),1000,a4)"
        Range("f2") = "=f4>=60"
    With Sheets("Extrait")
        Range("a3:f" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Range("f1:f2"), CopyToRange:=.Range("a3:e3"), Unique:=False
        Columns("f").ClearContents
        Application.Goto .Range("a3"), Scroll:=True
    End With
End Sub

Amicalement

Claude

Yes ! Merci Claude.

Je prépare un nouveau casse-tête pour demain (

Bonne soirée,

Cordialement,