copie série cellule selon choix menu déroulant

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans une cellule
Dim r As Range 'déclare la variable r (Recherche)
'si le changement à lieu ailleurs que dans la plage G4:G29, sort de la procédure
If Application.Intersect(Target, Range("G4:G29")) Is Nothing Then Exit Sub
If Selection.Cells.Count > 1 Then Exit Sub 'si plusieurs cellules sélectionnées, sort de la procédure
Set r = Sheets("Job List").Columns(1).Find(Target.Value, , xlValues, xlWhole) 'définit la recherche r (Recherche la valeur de la cellule modifiée dans la colonne A de l'onglet "Job List")
If Not r Is Nothing Then 'condition : si il existe au moins une occurrence
    'copie et colle la plage correspondante
    Sheets("Job List").Range(r.Offset(0, 1), r.Offset(0, 9)).Copy Target.Offset(0, 1)
End If 'fin de la condition
End Sub

'si le changement à lieu ailleurs que dans la plage G4:G29, sort de la procédure
If Application.Intersect(Target, Range("G4:G29")) Is Nothing Then Exit Sub