Adaptation d'une macro trouvée sur ce forum HELP!

Sub Transfert()
Dim C As Range
With Sheets("ANNEE 2012")
    For Each C In .Range("T2:T" & .[B65000].End(xlUp).Row)
        If UCase(C) = "X" Then
            With Sheets("PARTICIPATION")
                x = Application.CountA(.Columns(1)) + 1
                .Cells(x, 1) = C.Offset(0, -17)
            End With
        End If
    Next
End With
End Sub

Sub Transfert()
Dim c As Range, nom$, x#
With Sheets("ANNEE 2012")
    For Each c In .Range("T2:T" & .[B65000].End(xlUp).Row)
        If UCase(c) = "X" Then
            nom = c.Offset(0, -17)
            With Sheets("PARTICIPATION")
                x = Application.CountA(.Columns(1)) + 1
                If Application.CountIf(.Columns(1), nom) = 0 Then
                    .Cells(x, 1) = nom
                End If
            End With
        End If
    Next
End With
End Sub