Sub Export()
If Range("B10") = "" And Range("D10") = "" Then Exit Sub
If Range("B10") <> "" Then
Tab1 = Range("B10:C" & Range("B26").End(xlUp).Row)
End If
If Range("D10") <> "" Then
Tab2 = Range("D10:E" & Range("D26").End(xlUp).Row)
End If
Num = Range("B8")
With Sheets("feuil2")
derlign = .Range("A65000").End(xlUp).Row + 1
.Range("A" & derlign) = Num
.Range("A" & derlign).NumberFormat = "000000"
If Not IsEmpty(Tab1) Then
For i = 1 To UBound(Tab1)
x = Tab1(i, 2)
Set MonE = .Range("B2:AA2").Find(what:=x, LookAt:=xlWhole)
If Not MonE Is Nothing Then
.Cells(derlign, MonE.Column) = Tab1(i, 1)
.Cells(derlign, MonE.Column + 1) = Tab1(i, 1) * x
End If
Set MonE = Nothing
Next
End If
If Not IsEmpty(Tab2) Then
For j = 1 To UBound(Tab2)
y = Tab2(j, 2)
Set MonS = .Range("B2:AA2").Find(what:=y, LookAt:=xlWhole)
If Not MonS Is Nothing Then
k = Format(Tab2(j, 1), "-0")
.Cells(derlign, MonS.Column) = k
.Cells(derlign, MonS.Column + 1) = Tab2(j, 2) * k
End If
Set MonS = Nothing
Next
[COLOR="Blue"]End If[/COLOR]
Range("B10:E25").ClearContents 'Effacement tableau
Range("B8") = Range("B8") + 1 'Incrémentation N° feuille
End With
End Sub