Comment définir en VBA l'union des celules contenant la valeur 100 dans la plage A1:C5 ?

Sub tatanka()
 Set choixserge = Nothing
 Quoi = 100
  With ActiveSheet.Range("a1:F20")
    Set trouve = .Find(what:=Quoi, LookIn:=xlValues)
    If Not trouve Is Nothing Then
        FirstAddress = trouve.Address
        Set choixserge = trouve
        Do
            Set trouve = .FindNext(trouve)
            Set choixserge = Union(choixserge, trouve)
        Loop While Not trouve Is Nothing And trouve.Address <> FirstAddress
        choixserge.Select
    Else
        MsgBox Quoi & " pas trouvé ...", vbCritical
    End If
  End With

End Sub