Private Sub Worksheet_Change(ByVal Target As Range)
'Fonction RECHERV en VBA => permet de mettre l'adresse en B6 et le code postale en B7 en fonction de A5 soit "Nom"
If Not Sheets("Devis").Range("Nom").Value = "" Then
With Sheets("Devis")
.Range("B6").Value = WorksheetFunction.VLookup(.Range("Nom").Value, Sheets("N° Clients").Range("A2:B600"), 2, False)
.Range("B7").Value = WorksheetFunction.VLookup(.Range("Nom").Value, Sheets("N° Clients").Range("A2:C600"), 3, False)
End With
End If
End Sub