Exportation donnees d'une page de saisie excel a sa page convenable

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Derlig As Long
Dim Feuille As String
If Target.Column = 4 Then
If Range("A" & Target.Row) <> "" And Range("B" & Target.Row) <> "" And Range("C" & Target.Row) <> "" And Range("D" & Target.Row) <> "" Then
Select Case Target
Case "B"
Feuille = "GROUPE BERTRAND"
Case "H"
Feuille = "GROUPE HENRI "
Case "S"
Feuille = "GROUPE SIMON "
End Select
End If
End If
If Feuille <> "" Then
 Derlig = Sheets(Feuille).Range("A" & Rows.Count).End(xlUp).Row + 1
 Range("A" & Target.Row & ":C" & Target.Row).Copy Destination:=Sheets(Feuille).Range("A" & Derlig & ":C" & Derlig)
End If
End Sub