Sub Worksheet_Activate()
Dim Ligne%, DL%, L%, i%
Application.ScreenUpdating = False
[A2:A100].ClearContents
Ligne = 2
With Sheets("liste")
DL = .Range("A65500").End(xlUp).Row
For L = 4 To DL
If .Cells(L, "D") = "à commander" Then
For i = 1 To 3
Cells(Ligne, i) = .Cells(L, i)
Next i
Ligne = Ligne + 1
End If
Next L
End With
End Sub