Re,
Tout d'abord il n'est pas nécessaire de reprendre mes messages dans les tiens à moins que tu veuilles mettre un passage spécialement en évidence.
Ensuite, pour voir le code, tu peux par exemple taper Alt + F11 et tu regardes sous "ThisWorkbook". Mon code est le suivant :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i As Integer, Nom_Feuille As String, a As Integer, b As Long
Application.ScreenUpdating = False
If ActiveSheet.Name = "valeur" Then Exit Sub
If Range("A65536").End(xlUp).Row > 1 Then Rows("2:" & Range("A65536").End(xlUp).Row).Delete
Nom_Feuille = ActiveSheet.Name
If Nom_Feuille = "<200" Then
a = 0
b = 199
Else
If Nom_Feuille = "200_300" Then
a = 200
b = 300
Else
a = 301
b = 100000
End If
End If
With Sheets("valeur")
For i = 2 To .Range("A65536").End(xlUp).Row
If .Range("J" & i) >= a And .Range("J" & i) <= b Then
.Range("A" & i & ":J" & i).Copy Destination:=Range("A" & Range("A65536").End(xlUp).Row + 1)
End If
Next
End With
End Sub
Celui-ci réactualise les feuilles avec les résultats à chaque nouvelle sélection de ces feuilles. Ainsi, comme je te l'avais indiqué, tu aurais pu effectuer des modifications sur la feuille "valeur" et aller voir les différents résultats sur les autres feuilles qui sont toujours mises à jour.
Cordialement.
EDIT de 22:30 : Et inutile de mettre une copie de tes réponses en "Messages privés" ; en général un membre plaçant des réponses "surveille" automatiquement les nouvelles interventions sur les fils concernés