Private Sub CommandButton1_Click()
'
Dim i As Byte
Dim j%, ligne%
'
With Sheets('Sheet2')
For i = 1 To 3
ligne = 3
For j = 3 To .Cells(65536, i).End(xlUp).Row
If Application.CountIf(.Range('$A$3:$C$200'), .Cells(j, i)) = 1 Then
Sheets('Sheet3').Cells(ligne, i + 1) = .Cells(j, i)
ligne = ligne + 1
End If
Next j
Next i
End With
End Sub