Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each Sh In Sheets(Array("Intérieur", "Extérieur", "Attente", "Garanti"))
If Target.Column <> 2 Or Target.Row < 3 Then Exit Sub
If Sh.Name <> ActiveSheet.Name Then
If IsNumeric(Application.Match(Target, Sh.[b:b], 0)) Then
'efface A, C,D,E,F,G
Intersect(Sh.Rows(Sh.Application.Match(Target, Sh.[b:b], 0)), Sh.Range("a:a,c:g")).ClearContents
End If
End If
Next
End Sub