Sub test()
Dim I As Integer
With Feuil2
For I = 3 To .Range("AD" & Rows.Count).End(xlUp).Row
If .Range("AE" & I) = "" Then
.Range("J3") = .Range("AE" & J)
Sheets("FEUILLE").PrintPreview
End If
Next I
End With
End Sub
Sub impression()
Dim d As Object
Dim c As Variant
Dim a As Range
Set d = CreateObject("scripting.dictionary")
Set a = Range("ae1:ae" & [ae65000].End(xlUp).Row)
For Each c In a
If c <> "" Then d(c.Value) = c.Offset(, 1).Value
Next c
For Each c In d.keys
[b13].Value = d(c)
ActiveSheet.PrintPreview
Next c
End Sub
Dim d As Object
Dim c As Variant
Dim a As Range
Set d = CreateObject("scripting.dictionary")
Set a = Range("ae1:ae" & [ae65000].End(xlUp).Row)
For Each c In a
If c <> "" Then d(c.Value) = ""
Next c
For Each c In d.keys
[j3].Value = c
ActiveSheet.PrintPreview
Next c
End Sub