La prochaine fois, tu évites de faire perdre inutilement du temps à un intervenant avec un modèle qui ne correspons pas à la configuration de tes données et que tu ne sais adapter !
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim O As Worksheet, TblC, i%
If Intersect([t_Source], Target) Is Nothing Then Exit Sub
Set O = Sheets("Facture")
Cancel = True
With O
.Range("A16").Value = Me.Cells(Target.Row, 1).Value
TblC = Array(.Range("A16"), .Range("E4"), .Range("F33"), .Range("F35"), .Range("F36"))
End With
With [Tableau2]
If .Cells(1, 1) <> "" Then
For i = 1 To .Rows.Count
If .Cells(i, 1) = TblC(0) Then Exit For
Next i
If i <= .Rows.Count Then i = 0
Else
i = 1
End If
If i > 0 Then .Cells(i, 1).Resize(, 5).Value = TblC
End With
End Sub
Et aussi tu commences par essayer de savoir te servir du tableau Excel sur Compta en en éliminant toutes les lignes vides (sauf une que tu ne peux sans supprimer le tableau). Et tu ferais bien de faire la même chose pour ton tableau source, éliminer toutes les lignes vides du tableau, tu éviteras des surprises.