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