Trouver une plage de données

Sub trouve()
Set fc = Worksheets(1).Columns("A").Find(what:="X")
    MsgBox fc.Value & ": Première occurence dans : " _
    & fc.Address & ", Ligne " & fc.Row
Set fc = Worksheets(1).Columns("A").FindNext(after:=fc)
     MsgBox fc.Value & ": Seconde occurence dans : " & fc.Address
Set fc = Worksheets(1).Columns("A").Find(what:="Y")
    MsgBox fc.Value & ": Première occurence dans : " & fc.Address
Set fc = Worksheets(1).Columns("A").FindNext(after:=fc)
    MsgBox fc.Value & ": Seconde occurence dans : " & fc.Address
    Set fc = Worksheets(1).Columns("A").Find(what:="Z")
    MsgBox fc.Value & ": Première occurence dans : " & fc.Address
Set fc = Worksheets(1).Columns("A").FindNext(after:=fc)
    MsgBox fc.Value & ": Seconde occurence dans : " & fc.Address
End Sub

Dim TrouverX As Boolean
TrouverX = False
Dim PremierX As Integer, DernierX As Integer
Dim I As Integer
For I = 2 To Range("A65536").End(xlUp).Row
    If Cells(I, 1) = "X" And TrouverX = False Then
        PremierX = I
        TrouverX = True
    End If
    If Cells(I, 1) = "X" And TrouverX = True Then
        DernierX = I
    End If
Next I
MsgBox ("1° X : " & PremierX & " - dernier x : " & DernierX)