Création automatique de feuille par ligne saisie

Private Sub Worksheet_BeforeDoubleClick(ByVal Cible As Range, Annuler As Boolean)
Dim l&, i&, odat()
  If Cible.Address = "$A$1" Then
    l = Cells(Rows.Count, 1).End(xlUp).Row
    If l > 3 Then
      odat = Range(Cells(3, 1), Cells(l, 20)).Value
      With Application: .ScreenUpdating = 0: .Calculation = -4135: End With
      For i = 2 To UBound(odat, 1)
        If Not IsEmpty(odat(i, 7)) Then
          On Error Resume Next
          Sheets(CStr(odat(i, 1) & "-" & odat(i, 7))).Activate
          If Err.Number <> 0 Then
            Sheets("EX FACTURE").Copy after:=Sheets(Sheets.Count)
            With ActiveSheet
              .Name = CStr(odat(i, 1) & "-" & odat(i, 7))
              .Range("$D$10").Value = odat(i, 4)
              .Range("$D$11").Value = odat(i, 5)
              .Range("$D$12").Value = odat(i, 6)
              .Range("$B$17").Value = CStr(odat(i, 2)) & " " & CStr(odat(i, 1))
              .Range("$B$18").Value = CStr(odat(i, 3))
              .Range("$A$20").Value = CStr(odat(i, 9))
              .Range("$C$20").Value = odat(i, 10)
              .Range("$A$21").Value = CStr(odat(i, 11))
              .Range("$C$21").Value = odat(i, 12)
              .Range("$C$25").Value = odat(i, 13)
              .Range("$A$26").Value = CStr(odat(i, 14))
              .Range("$B$29").Value = CLng(odat(i, 8))
              .Range("$B$45").Value = CLng(odat(i, 15))
            End With
          End If
        End If
      Next
      On Error GoTo 0
      With Application: .Calculation = -4105: .ScreenUpdating = 1: End With
    End If
    Annuler = True
  End If
End Sub