Svp comment fusionner un fiche individuelle d'inscription d'élève avec une liste

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
'vide on ne fait rien
If Target.Value = "" Then Exit Sub 
'on met la valeur de la cellule cliquée (Target.Value) de la feuille active en C11 de la feuille FEUILLE INSCRIPTION
Sheets("FEUILLE INSCRIPTION").Range("C11").Value = Target.Value 'Nom
''on met la valeur de la colonne B de la ligne de la cellule cliquée de la feuille active en C12 de la feuille FEUILLE INSCRIPTION  Cells(Target.Row, 2) target.Row: ligne cliquée et 2 colonne B
Sheets("FEUILLE INSCRIPTION").Range("C12").Value = Cells(Target.Row, 2) 'prénom
''on met la valeur de la colonne C de la ligne de la cellule cliquée de la feuille active en C14 de la feuille FEUILLE INSCRIPTION  Cells(Target.Row, 3) target.Row: ligne cliquée et 3 colonne C
Sheets("FEUILLE INSCRIPTION").Range("C14").Value = Cells(Target.Row, 3) 'date de naissance
'il suffit de continuer si autres valeurs 
End If
End Sub