Sub Recap2()
Application.ScreenUpdating = False
Dim TabAbo() As Variant
Dim TabMat() As Variant
With Sheets("ABO I")
Fin = .Range("B" & .Rows.Count).End(xlUp).Row
TabAbo = .Range("B3:G" & Fin).Value
End With
With Sheets("MAT I")
Fin = .Range("B" & .Rows.Count).End(xlUp).Row
TabMat = .Range("B3:E" & Fin).Value
End With
With Sheets("Récap")
FinRecap = .Range("T" & .Rows.Count).End(xlUp).Row
If FinRecap > 14 Then .Range("T15:U" & FinRecap).ClearContents
For i = LBound(TabAbo, 1) To UBound(TabAbo, 1)
If TabAbo(i, 4) <> "" And IsNumeric(TabAbo(i, 4)) Then
.Range("T" & .Rows.Count).End(xlUp).Offset(1, 0) = TabAbo(i, 4)
.Range("U" & .Rows.Count).End(xlUp).Offset(1, 0) = TabAbo(i, 1)
End If
Next i
For i = LBound(TabMat, 1) To UBound(TabMat, 1)
If TabMat(i, 3) <> "" And IsNumeric(TabAbo(i, 3)) Then
.Range("T" & .Rows.Count).End(xlUp).Offset(1, 0) = TabMat(i, 3)
.Range("U" & .Rows.Count).End(xlUp).Offset(1, 0) = TabMat(i, 1)
End If
Next i
End With
Application.ScreenUpdating = True
End Sub