Private Sub CommandButton1_Click()
Dim R As Range, C As Range, L As Long
With Sheets("BDD_Security Class & Labels")
For Each R In Columns(2).SpecialCells(xlCellTypeConstants)
For Each C In .Columns(1).SpecialCells(xlCellTypeConstants)
If C = R Then
L = L + 1
Sheets("Tout").Cells(L, 1) = R.Offset(, -1)
Sheets("Tout").Cells(L, 2) = C
Sheets("Tout").Cells(L, 3) = C.Offset(, 1)
End If
Next
Next
End With
End Sub