Données page 1 classées sur différentes feuilles

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim derniereLigne As Long
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then 'adapter la colonne
If Target.Value = "" Then Exit Sub
If IsWorksheet(Target.Value) = True Then
derniereLigne = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("A" & derniereLigne + 1).Value = Sheets("Liste").Cells(Target.Row, Target.Column + 1)
ActiveSheet.Range("B" & derniereLigne + 1).Value = Sheets("Liste").Cells(Target.Row, Target.Column + 2)
Else
Sheets.Add After:=Worksheets(Worksheets.Count) 'ajoute une feuille à la suite
ActiveSheet.Name = Target.Value 'renomme cette feuille
ActiveSheet.Range("A1").Value = "Code"
ActiveSheet.Range("B1").Value = "Description"
ActiveSheet.Range("A2").Value = Sheets("Liste").Cells(Target.Row, Target.Column + 1)
ActiveSheet.Range("B2").Value = Sheets("Liste").Cells(Target.Row, Target.Column + 2)
End If
End If
End Sub
Public Function IsWorksheet(strName As String) As Boolean
   Dim objWorksheet As Worksheet
   IsWorksheet = False
   For Each objWorksheet In ActiveWorkbook.Worksheets
      If objWorksheet.Name = strName Then
         IsWorksheet = True
         Sheets(strName).Select
      End If
   Next
End Function