Private Sub Worksheet_Activate()
'fait par YVES
Me.Range("B5:N1000").ClearContents
With Feuil1
li = .Range("H" & Rows.Count).End(xlUp).Row
If .Range("E6") = "" Then MsgBox "Pas de données saisies!", vbCritical: Exit Sub
If .Range("E7") = "" Then li = 5
ligne = 5
For i = 5 To li
If UCase(.Range("E" & i)) = "4.10" Then
Cells(ligne, 2) = .Cells(i, 2)
Cells(ligne, 3) = .Cells(i, 3)
Cells(ligne, 4) = .Cells(i, 4)
Cells(ligne, 5) = .Cells(i, 6)
Cells(ligne, 6) = .Cells(i, 7)
Cells(ligne, 7) = .Cells(i, 8)
Cells(ligne, 8) = .Cells(i, 9)
Cells(ligne, 9) = .Cells(i, 10)
Cells(ligne, 10) = .Cells(i, 11)
Cells(ligne, 11) = .Cells(i, 12)
Cells(ligne, 12) = .Cells(i, 13)
Cells(ligne, 13) = .Cells(i, 14)
Cells(ligne, 14) = .Cells(i, 15)
ligne = ligne + 1
End If
Next
End With
Range("O6").Select
End Sub