Sub filtre()
'
' filtre Macro
' Macro enregistrée le 23/11/2011'
Dim cell As Range
For Each cell In Range("B2:B30")
If cell + 20 > cell.Offset(1, 0) Then
ElseIf cell - 20 < cell.Offset(1, 0) Then
ElseIf cell + 20 > cell.Offset(-1, 0) Then
ElseIf cell - 20 < cell.Offset(-1, 0) Then
Else
cell.Offset(0, 1) = cell.Value
End If
Next
'
End Sub