Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [B16:B17]) Is Nothing Then
Dim Nom$, Service$, Début$
Nom = [B16]: Service = [B17]: Début = 4 ' Début du tableau Base clients
[B18:B22].ClearContents
Set F = Sheets("Base clients")
While F.Cells(Début, "A") <> ""
If F.Cells(Début, "B") = Nom And F.Cells(Début, "C") = Service Then
[B18] = F.Cells(Début, "E") ' Adresse
[B19] = F.Cells(Début, "F") ' Code postal
[B20] = F.Cells(Début, "G") ' Ville
[B22] = F.Cells(Début, "J") ' email
Exit Sub
End If
Wend
End If
Fin:
End Sub