Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If Target.Value = "Immeuble" Then
Sheets("Feuil1").Range("B3:C3").Copy Sheets("Feuil2").Range("A1:B1")
Sheets("Feuil1").Range("B3:C3").Clear
End If
If Target.Value = "Société" Then
Sheets("Feuil2").Range("A1:B1").Copy Sheets("Feuil1").Range("B3:C3")
End If
End If
End Sub