Sub Sylvanu()
efface
[a2].Select
If Val(Right(Cells(ActiveCell.Row, 7), 6)) = Cells(ActiveCell.Row, 8) _
Or Val(Right(Cells(ActiveCell.Row, 7), 7)) = Cells(ActiveCell.Row, 8) _
Or Val(Right(Cells(ActiveCell.Row, 7), 8)) = Cells(ActiveCell.Row, 8) _
Or Val(Right(Cells(ActiveCell.Row, 7), 9)) = Cells(ActiveCell.Row, 8) _
Or Val(Right(Cells(ActiveCell.Row, 7), 10)) = Cells(ActiveCell.Row, 8) _
Or Val(Right(Cells(ActiveCell.Row, 7), 11)) = Cells(ActiveCell.Row, 8) Then
Cells(ActiveCell.Row, 11) = Cells(ActiveCell.Row, 8)
Else
Cells(ActiveCell.Row, 11) = "vous recherchez - de 6 chiffres ou n'existe pas !"
End If
End Sub