Sub Worksheet_Activate()
Application.ScreenUpdating = False
Range("A4:D1000").ClearContents
IndexW = 4
DL = Sheets("Stock").Range("A65500").End(xlUp).Row
With Sheets("Stock")
For i = 3 To DL
If .Cells(i, "F") <= .Cells(i, "G") Then
Cells(IndexW, "A") = .Cells(i, "D") ' Désignation
Cells(IndexW, "B") = .Cells(i, "C") ' N° article
Cells(IndexW, "C") = .Cells(i, "J") ' Emplacement
Cells(IndexW, "D") = .Cells(i, "F") ' Stock
IndexW = IndexW + 1
End If
Next i
End With
End Sub