Sub Test()
Dim Plage As Range, Cellule As Range
For Each Cellule In Selection
If UCase(Cellule) = "X" Then
If Plage Is Nothing Then
Set Plage = Rows(Cellule.Row)
Else
Set Plage = Union(Plage, Rows(Cellule.Row))
End If
End If
Next
Plage.Copy Feuil2.Range("A1")
End Sub