Macro technique

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LigneAjout As Long
    'Si le nombre de cellules modifiées est supérieur à 1, on sort de la procédure
    If Target.Count > 1 Then Exit Sub
    'Si la cellule modifiée appartient à la colonne "Groupe"
    If Not Application.Intersect(Target, Range("I6:I155")) Is Nothing And Target.Value <> "" Then
        'On détermine le nom de la feuille cible
        With Worksheets("groupe " & Target.Value)
            'On détermine le numéro de ligne où doit se faire la copie du nom et du prénom
            LigneAjout = .Range("E" & Rows.Count).End(xlUp).Row + 1
            'On copie le nom
            .Range("E" & LigneAjout).Value = Range("C" & Target.Row).Value
            'On copie le prénom
            .Range("F" & LigneAjout).Value = Range("D" & Target.Row).Value
            'On affiche un message pour indiquer que le traitement est réalisé
            MsgBox Range("C" & Target.Row).Value & " " & Range("D" & Target.Row).Value & " a été inscrit dans la fiche d'appel du " & .Name
        End With
    End If
End Sub