Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerLig As Long, Feuille As String, Ligne As Long
DerLig = Range("A" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("A2:R" & DerLig)) Is Nothing Then
Application.ScreenUpdating = False 'désactive le rafraichissement écran
test = IsError(Evaluate("= " & Range("A" & Target.Row) & "!A1")) ' test si la feuille existe
If test Then
MsgBox "La feuille n'existe pas"
Else
Feuille = Range("A" & Target.Row) 'Nom de la feuille
Ligne = Target.Row 'N° de ligne
Sheets("clients").Range("A" & Ligne & ":R" & Ligne).Copy Worksheets(Feuille).Range("A2")
MsgBox "adresses client " & Range("B" & Target.Row) & " " & Range("C" & Target.Row) & " à jour"
End If
Application.ScreenUpdating = True 'affiche les changements à l'écran
End If
End Sub