Sub Imprimer()
Dim d As Object, cel1 As Range, cel2 As Range, mem1, mem2, plage As Range, c1 As Range, v, c2 As Range
Set d = CreateObject("Scripting.Dictionary")
With Sheets("FS") 'j'ai enlevé l'espace superflu...
Set cel1 = .[N5] 'cellule contenant la 1ère liste de validation
Set cel2 = .[O1] 'cellule contenant la 2ème liste de validation
mem1 = cel1 'mémorise la valeur
mem2 = cel2 'mémorise la valeur
Set plage = Sheets("coteFS").Columns(2).SpecialCells(xlCellTypeFormulas)
For Each c1 In plage
v = c1.Value
If Not d.exists(v) Then
d(v) = ""
cel1 = v
For Each c2 In plage
If c2 = v Then
cel2 = c2(1, 2)
.PrintPreview 'pour tester
'.PrintOut 'pour imprimer ôter l'apostrophe
End If
Next c2
End If
Next c1
cel1 = mem1 'restitution
cel2 = mem2 'restitution
End With
End Sub