Option Explicit
Sub trademande()
Dim Dl1 As Long ' dernière ligne
Dim sh As Worksheet
On Error GoTo trademande_Error
With Sheets("recap")
For Each sh In Worksheets
If IsNumeric(sh.Name) Then
Dl1 = .Range("A" & .Rows.Count).End(xlUp).Row + 1
If sh.Range("j10").Value < 100 Then
.Range("a" & Dl1) = sh.Range("A1").Value
.Range("b" & Dl1) = sh.Range("b1").Value
.Range("c" & Dl1) = sh.Range("j10").Value
End If
End If
Next sh
End With
On Error GoTo 0
Exit Sub
trademande_Error:
MsgBox "La feuille recap n'existe pas"
End Sub